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AutoCAD -— это мощная, самая распространенная у нас и за рубежом HH- 
женерная система автоматизации проектирования самых разнообразных 
объектов: от плана офиса до космических станций. 

Постоянно развивающаяся система AutoCAD состоит из трех основных 
компонентов: графического редактора AutoCAD, языка программирова- 
ния высокого уровня AutoLISP и инструментальных средств для создания 
графического интерфейса пользователя. 

Использование в системе AutoCAD языка AutoLISP не только значи- 
тельно ускоряет процесс разработки проектной документации, но и позво- 
ляет создавать новые команды графического редактора, специализирован- 
ные меню в среде AutoCAD, осуществлять доступ к графической базе 
данных и модернизировать ее, разрабатывать функции для решения самых 
разнообразных задач и, кроме того, создавать эффективные системы и под- 
системы, связаиные с обработкой информации, представлеиной в виде 
символов и чисел. Язык LISP был создан в 1962 году Дж. Маккарти, npo- 
фессором Стенфордского университета для эффективного решения задач 
искусственного интеллекта. В настоящее время существует огромное KO- 
личество версий этого языка, однако предпочтение отдается версии HON 
названием COMMON LISP. Именно эта версия была поддержана Лабора- 
торией искусствениого интеллекта Массачусетского технологического 
института (США), там же создана LISP машина и в качестве языка сис- 
темпого программировапия использован COMMON LISP По сиитаксису 
и соглашениям AutoLISP наиболее близок к COMMON LISP. | 

Формы представления программы и обрабатываемых ею данных в LISP 
одинаковы. И то n другое представляется в виде снисочной структуры. 
Программы могут обрабатывать, а также преобразовывать другие програм- 
мы и даже самих себя, что позволяет эффективно использовать LISP juig 
решения широкого круга задач. 

В настоящее время na языке LISP реализованы многочисленные npo- 
граммные продукты: редакторы GNU EMAKS для различных языков MDO- 
граммировапия на ЭВМ семейства VAX, математическое обесиечение cuc- 
темы инжеперного проектирования AutoCAD, системы аналитических 
преобразований, объектно-ориентированные системы, большинство экс- 
пертных систем и другие. 
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Для 14-й версии AutoCAD создана мощная интегрированная среда npo- 
граммирования Visual LISP. Она включает следующие функциональные 
компоненты: 

e текстовый редактор, ориентированный на синтаксис языка AutoLISP 
и использующий язык кодирования цветом (DCL), что значительно 
упрощает чтение и отладку программ на языке AutoLISP; 

консоль. куда выдаются сообщения о результатах загрузки програм- 
мы. различные днагностические сообщения и T. N; 

e Форматтер, который преобразует текст программы и придает ему Ner- 
ко читаемый структурированный вид; 

эмулятор AutoLISP, обеспечивающий наглядность процесса выполне- 
ния программы; 

e программу проверки синтаксиса, распознавания неправильных KOH- 
струкций AutoLISP; 

встроенную систему проверки, обеспечивающую удобный доступ 
к переменным и значениям выражений с целью просмотра структуры 
данных и их изменений; 

e отладчик. обеспечивающий высокий уровень отладки программ; 

èe контекстно-зависимые справки для функций AutoLISP; 

e систему управления проектом, которая упрощает работу с приложе- 
HHAMH; 

e хпаковшик компилируемых файлов AutoLISP в АКХ-модули. 

Visual LISP полностью поддерживает интерфейс Windows. 

По сравнению с традиционными системами современные среды Mpo- 


граммирования. какой является интегрированная среда Visual LISP nosso- 


ляют повысить производительность программирования в несколько раз. 

Целью настоящей книги является описание не только новой мощной 
интегрированной среды программирования Visual LISP для системы 
AutoCAD 14-й версии, но и процессов создания различных систем с се 
использованием. 

Книга содержит большое количество рисунков, иллюстрирующих ин- 
тегрированную среду Visual LISP, программирование на языке AutoLISP 
и решение конкретных задач. 

Автор далек от мысли, что книга свободна от недостатков, и с благодар- 
ностью примет все замечания и предложения по ее улучшению, которые 
просит направлять по адресу: books@dmk.ru. 
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Глава 1 


ИНТЕГРИРОВАННАЯ СРЕДА 


Эта глава посвящена описанию интег- 
рированной среды программирования 
Visual LISP. Здесь рассматриваются 
структура среды, правила ее запуска, 
описываются главная и инструмен- 
тальные панели, текстовый редактор 
и другие элементы Visual LISP., 
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1.1. Структура и запуск Visual LISP 


Visual LISP (УР) - это интегрированная среда разработки программ 
на языке программирования AutoLISP в системе AutoCAD 14, которая 
значительно облегчает процесс создания рр ес изменения, тести- 
рования и отладки. Кроме того, \ isual LISP обеспечивает эффективное 
использование автономных приложений ОВТЕСТАКХ, написанных на 
языке AutoLISP. 

Visual LISP включает следующие функциональные компоненты: 

e текстовый редактор, ориентироваиный на синтаксис языка AutoLISP 
и использующий язык кодпрования цветом (DCL), что значительно 
упрощает чтение и отладку программ на языке AutoLISP; 
консоль. куда выдаются сообщения о результатах загрузки программы, 
различные диагностические сообщения и т. д.; 
форматтер. который преобразует текст программы и придает ему лег- 
ко читаемый структурированный вил; 
эмулятор AutoLISP, обеспечивающий наглядность процесса выполне- 
ния программы; 
программу проверки синтаксиса, распознавания неправильных кон- 
струкций AutoLISP; 
компилятор. который уточняет выполнение программы, ускоряет, 
а также обеспечивает безопасную и эффективную систему выдачи pe- 
зультатов; 
встроенную систему контроля, которая обеспечивает удобный доступ 
к переменным и значениям выражений с целыо просмотра структуры 
данных и их изменений; 
отладчик. обеспечивающий высокий уровень отладки программ; 
контекстно-зависимые справки для функций AutoLISP; 
систему управления проектом, которая упрощает работу с приложени- 
AMH; 

* упаковщик компилируемых файлов AutoLISP в АВХ-модули. 

Visual LISP имеет собственный набор окон и меню, который отличается 
от соответствующего набора AutoCAD. Однако запуск интегрированной 


среды Visual LISP производится из системы AutoCAD 14-й версии. BoT - 


почему при работе с Visual LISP систем у AutoCAD необходимо хранить 
на рабочем столе в открытом виде. Если AutoCAD сверпут, то для продол- 
жения работы с Visual LISP окно AutoCAD необходимо восстаповить 
и сделать его активным. При работе с графикой интегрированная среда 
Visual LISP взаимодействуст с системой AutoCAD, отвечая на нодсказки 
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относительно ввода. Запуск Visual LISP производится только после запус- 
ка системы AutoCAD. При этом возможны два варианта. 

Первый из них предусматривает загрузку приложения Visual LISP с no- 
мощью меню. AutoCAD имеет иерархическую систему меню, состоящую 
из главного меню и системы падающих и всплывающих меню (подменю). 
Главное меню AutoCAD - это набор пунктов меню для вызова падающих 
меню. Набор пунктов главного меню располагается во второй строке pa- 
бочего стола AutoCAD 14-й версии. Падающее меню AutoCAD - это на- 
бор пунктов меню для вызова всплывающего меню, диалогового окна или 
команды AutoCAD. Набор пупктов падающего меню располагается под Co- 
ответствующим пунктом главного меню. Всплывающее меню AutoCAD - 
это набор пунктов меню для вызова всплывающего меню, диалогового 
окна или команды AutoCAD. Набор пунктов всплывающего меню распо- 
лагается справа от выбранного пункта меню. Выбор пункта меню можно 
выполнить щелчком по нему левой кнопкой мышки. 

Чтобы произвести загрузку, вызовите в главном меню AutoCAD пункт 
Tools (Инструменты) и выберите в падающем меню пункт Load 
Application... (Загрузить приложение...). На экране появится диалоговое 
окно загрузки (рис. 1.1) Загрузить AutoLISP, ADS, и ARX Файлы (Load 
AutoLISP, ADS, and ARX Files). 

Чтобы выбрать приложение Visual LISP щелкните в диалоговом окне 
загрузки по кнопке File (Файл), и на экране появится диалоговое окно 
выбора файлов Выберите файл AutoLISP, ADS или ARX (Select 
AutoLISP, ADS, ог ARX File) (рис. 1.2). 


зить AutoLISP, ADS, n ARX Файлы 


Файлы для Считывания 
C\vlautolisp\Hanoiw.lsp 
CA\vlautolisp\Kuklalw.lsp 
CAvlautolispiMnkvw.lsp 

CAviautolisp\Poslw.lsp 

_ [C\vlautolispiSetdforw.lsp 
CAvlautolispiSetforiw.lsp 
C\wvlautolispiStrelalw.lsp 
CAvlautolspiStrelaw.Isp 

C\vlautolisp\Valrw.tsp 


загрузить | Быгрузить | Выход Помощь | 


№ Сохранить список 


Рис. Г.Т. Диалоговое окно загрузки файлов AutolISP, ADS и ARX 
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Danka |A AutoCAD R] | =| al &| 
$ O Vlisp 
6111 

Fonts 

Help 

Sample 

Support 

Template 

Textures 


Имя файла: | Открыть | 
Тип файлов: [Lisp (*1р) -| Отмена | 


Рис, 1.2. Диалоговое окно выбора файлов Аую ИР, ADS или ARX 


Найдите в этом окне папку (каталог) под названием Vlisp H дважды 


ко а u | 
щелкните по ней мышкой. На экране появятся файлы папки (каталога) 
Visual LISP (рис. 1.3). 


Выберите файл AutoLISP, ADS. ог ARX [2х] 
И 
Пеле [Svs Ш Ея 


Help: 


Имя файла: 


Открыть 
Тип файлов: Jsp (15р) v Отмена | 
Иль, Найти Найти срайл..| 


Рис. 1.3. Диалоговое окно выбора файлов АуюИ5$Р, ADS или ARX 
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Диалоговое окно выбора файла может содержать по умолчанию только 
файлы с расширением LSP. В таком случае вам предстоит выбрать в поле 
Tun файлов (Files of type) расширение ARX. Для этого щелкните мышкой 
по расположенной рядом кнопке со стрелкой вниз. Откроется список рас- 
ширений. Выберите расширение ARX и щелкните по нему мышкой. В том 
же диалоговом окне появится другой набор файлов. Выделите файл под 
именем Vlide и щелкните по кпопке Открыть. На экране вновь появится 
диалоговое окно загрузки Загрузить AutoLISP, ADS, и ARX Файлы (Load 
AutoLISP, ADS, and ARX Files). 

Чтобы файл Vlide можно было использовать в дальнейшем, включите 
флажок Сохранить список (Save List). В квадратике рядом с надписью 
Сохранить список (см. рис. 1.1) появится галочка. 

Щелкните по кнопке Load (Загрузить). На экране появится главное 
окно Visual LISP (puc. 1.4). 

Второн варнант запуска предусматривает загрузку приложения Visual 
LISP с помощью команды VLIDE. В командной строке AutoCAD необхо- 
димо набрать команду УГЛЕ, нажать клавишу Enter (Ввести). На экране 
появится главное окно Visual LISP (рис. 1.4). 
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Рис. 1.4. Главное окно Visual LISP 
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В первой строке (строке заголовка) главного окна Visual LISP указано 
название окна Visual LISP for AutoCAD Release 14 (Visual LISP для 
AutoCAD 14-й Bepcim). 

Во второй строке главного окна Visual LISP расположены пункты глав- 
ного меню. Нижняя строка главного окна Visual LISP — строка состояния 
системы, в которой дается краткое описание функции команды. 


1.2. Главное меню Visual LISP 


Главное меню представляет собой систему, которая обеспечивает доступ ко 
всем средствам Visual LISP. По своей сути главное меню — основной 
управляющий центр интегрированной среды Visual LISP. Роль дополни- 
тельных центров играют панели инструментов и отдельные кнопки, за ко- 
торыми закреплены команды, используемые наиболее часто. 

Система меню Visual LISP - это хорошо скоординированная совокуп- 
ность падающих и всплывающих меню. После щелчка мышкой по любому 
пункгу главного меню или нажатия горячих клавиш (Hot Keys) на экране 
появляется соответствующее падающее меню. Горячая клавиша выделяется 
в названии пункта меню путем подчеркивания одной буквы. Для того что- 
бы с помощью клавиатуры получить быстрый доступ к пункту главного 
меню, а значит, и к соответствующему падающему меню, необходимо нажать 
клавишу Alt и, удерживая ее, нажать ту алфавитную клавищу, название KO- 
торой подчеркнуто. Например, для быстрого обращения к пункту View 
(Просмотр) достаточно нажать комбинацию клавиш АЕ+У. Чтобы вызвать 
соседнее падающее меню, необходимо нажать клавишу со стрелкой влево 
или вправо. Выделить любой пункт падающего или всплывающего меню 
(подменю) можно, щелкнув по нему мышкой или нажав клавишу со стрел- 
кой вниз либо вверх. Для выполнения выбранной команды необходимо на- 
жать клавишу Enter или горячую клавишу, название которой подчеркнуто. 
Чтобы закрыть падающее или всплывающее меню, достаточно нажать кла- 
вишу ESC или щелкнуть мышкой в поле окна вне меню. 

Содержание падающих меню может изменяться в зависимости от ис- 
пользуемого окна Visual LISP. Падающее меню состоит из пунктов, KOTO- 
рые могут быть пунктами подменю, диалоговыми или недиалоговыми ко- 
мандами. 

Если после названия пункта меню стоит многоточие, это означает, что 
перед вами диалоговая команда и при ее выборе появится диалоговое 
ОКНО. 

Когда в правой части пункта меню имеется треугольная стрелка, то при 


выборе данного пункта откроется подменю (всплывающее меню). 
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В случае, когда яркость пункта меню понижена, этот пункт не доступен 
для использования. o 

Если пункту меню предшествует флажок (галочка) или он появляется 
при выборе пункта, то это свидетельствует о том, что данный пункт может 
находиться во включенном или выключенном состоянии. При наличии 
флажка слева пункт меню считается включенным, при его` отсутствии: — 
выключенным. 

Подчеркнутая буква в названии пункта меню обозначает горячую кла- 
вишу (Hot Key), которая может быть использована для быстрого доступа 
к команде или меню. Клавиши, указанные справа от пункта меню, явля- 
ются клавишами-акселераторами (Shortcut Keys, Acceleration Keys) 
и предназначены для оперативного доступа к пункту меню или команде. 

В процессе выбора пункта меню часто появляются диалоговые окна, 
в которых предлагается ввести недостающую информацию, уточнить ре- 
жимы выполнения команды и/или выбрать один из нескольких вариантов. 

Диалоговые окна имеют ряд элементов управления: 


кнопку управления (command button), которая выполняет 
некоторое действие. Чтобы выполнить это действие, необхо- 
димо вначале выделить кнопку с помощью клавиши Tab (Shift+Tab), 
а затем нажать Enter или щелкнуть по кнопке мышкой; 


са | флажок (check box, option), который задает или 
ЕЕ: илл” уточияет режим выполнения команды. Он может 
находиться в двух состояниях — включенном (в квадратике слева сто- 
ит галочка) или выключенном (галочка отсутствует). Если флажок 
включен, то при выполнении команды будет осуществлено действие, 
указанное справа от квадратика. Смена состояния флажка произво- 
дится щелчком мышки или путем выделения надписи справа с помо- 
щью клавиши Tab (Shift+Tab), а затем пажатия клавиши Space; 


с pisaa mwem: переключатель (radio buttons), представляющий 

ta Dow: Ане я ' собой перечень взаимоисключаемых вариантов, 
ее: ИЗ Которых выбирается какой-либо один. Эти Ba- 
рианты называются положениями переключателя. Текущее положс- 
ние отмечается точкой в кружочке слева. Для установки переключа- 
теля в нужное положение необходимо щелкнуть по этому кружочку 
мышкой или выделить надпись справа с помощью клавиши Tab 
(Shift+Tab), а затем нажать клавишу Space; 


че == чае > 


поле ввода (text box), которое позволяет 
mamma набирать, оставлять или редактировать 


Г ВИЙ Зе 
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имеющуюся последовательность символов. Поле ввода предоставля- 
ет возможность вставлять текст из буфера обмена или копировать его 
туда. Чтобы обеспечить ввод символов в поле с клавиатуры, необхо- 
димо щелкнуть по полю ввода мышкой или ввести курсор в поле 
с помощью клавиши Tab (Shift+Tab); 


° прокручиваемый список (scrolling list), который содержит те или 
иные элементы, в частности папки (каталоги), файлы, в определенной 
последовательности. Если элементов много, справа и/или снизу спи- 
сок имеет полосы прокрутки, которые дают возможность просмотреть 
весь список. Для выделения элемента из списка, щелкните по нему 
мышкой. Можно также использовать клавишу Tab и клавиши со 


стрелками; 
fern | Раскрывающийся список (drop-down 
mesanman list), содержащий набор элементов. Из 


этого набора выбирается едииственный элемент, который оказывает- 
ся видимым. Для выбора другого элемента нужно щелкнуть мышкой 
по кнопке в правой части списка. Когда список откроется, щелкните 
по выбранному элементу. Возможно, придется использовать приемы 
прокрутки. Как и в прокручиваемом списке, искать элемент можно по 
первой букве. Чтобы отменить действия по выделению другого эле- 
мента, щелкните мышкой вне зоны раскрывшегося списка или на- 
жмите клавишу Esc. 

Следует обратить внимание, что в диалоговых окнах выбора файлов 
(см. рис. 1.2), открытия файла Open file to edit/view (Открыть файл 
для редактирования или просмотра), сохранения файла Save as, загруз- 
ки файла Load lisp file, создания нового проекта New project... и Apy- 
гих в правой части под строкой заголовка имеются следующие кнопки: 
E на один уровень вверх (Up One Level) — для перехода в каталог на 

один уровень выше; 
zA обзор рабочего стола (View Desktop) — для показа программ Ha рабо- 
чем столе; 


ВЕ] создание новой папки (New Folder) — для создания новой папки; 


zE] список (List) — для представления всех папок и файлов текущей пап- 
„© р 
ки; 
таблица (Table) - для развернутого представления всех папок и pañ- 
лов текущей папки (каталога) с указанием размера, типа и даты пос- 
леднего изменения. 

Далее рассмотрим падающие меню для каждого пункта главного меню. 
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Рис. 1.5. Падающие меню работы с файлами (Ее) при активном окне текстового редоктора 
[слева] и при активном окне консоли Visual LISP (спрова) 


1.2.1. Падающее меню работы с файлами: File 


Выбор пункта File (Файл) главного меню или нажатие комбинации кла- 
BHII А[Е+Е вызывает падающее меню работы с файлами (рис. 1.5). - 

Падающее меню работы с файлами включает большой набор пунктов: 

e New File (Новый файл) или нажатие комбинации клавиш СЫ1+М 
обеспечивает создание нового файла с помощью диалогового окна 
<Untitled-0> (Без названия-0) (рис. 1.6). Номер окна без названия 
определяется числом созданных, но еще не названных файлов. Нуме- 
рация еще не названных окон начинается с 0. 

Если щелкнуть по значку, расположенному слева от названия окна, по- 

явится контекстное MEHIO (рис. 1.6). Оно включает ряд пунктов: 

e Восстановить (Restore) — восстанавливает размер окна до прежнего 
размера; 

e Переместить (Move) — перемещает окно в другое место; 

e Размер (Size) — изменяет размер окна. При выборе этого пункта yka- 
затель мышки изменит свою форму. Нажмите клавишу \ , Т, < или >, 
чтобы указать границу окна, которую вы намереваетесь переместить. 
Переместите границу, двигая мышку либо нажимая ту же или проти- 
воположную ей клавишу. Завершите операцию щелчком мышки или 
нажатием клавиши Enter (Ввод); 


22 Интегрированная среда Visual LISP 


d <ИпиЧе3-0> 


м m - 


we aat > 
- Переместить 
Размер 
-ъзеснуть 
С Рэаззеснуть 
X Закрыть Cti+F4 


Следующее 


Рис. 1.6. Окно для создания нового файпа 


e Свернуть (Minimize) — сворачивает окно до минимальных размеров 
(уменьшенный размер заголовка окна); 

e Развернуть (Maximize) - разворачивает нормальное или свернутое 
окно до максимально возможных размеров; 

e Закрыть (Close) — закрывает окно; 

e Следующее (Next) — обеспечивает переход к следующему окну. Это 
же действие может быть выполнено путем нажатия комбинации кла- 
BHUI CtrÌ+F6. 

В правой части строки заголовка текстового окна имеются три кнопки. 
Первая и вторая кнопки (Свернуть и Развернуть) позволяют изменять 
размер окна. правая (Закрыть), закрывает окно; 

e Open File... (Открыть файл) или нажатие комбинации клавиш Ctril+O 
вызывает диалоговое окно открытия файла Open File to edit/view 
(Открыть файл для редактирования/просмотра) (puc. 1.7). Достаточ- 
но найти нужный файл, дважды щелкнуть по нему мышкой, и на экра- 
не появится окно для работы с этим файлом. 

e Reopen ( Переоткрыть) — вызывает подменю, содержащее список þa- 
лов, с которыми ранее работал пользователь (см. пример на рис. 1.8). 
Если щелкнуть по любому из файлов списка, откроется окно тексто- 
вого редактора с этим файлом. Последний пункт подменго, если щелк- 
нуть по нему мышкой, может вызвать диалоговое окно Choose file to 
edit (Выбор файла для редактирования) с еще большим списком фай- 
лов, с которыми ранее работал пользователь. В данном диалоговом 
окне можно удалить или открыть любой из файлов списка; 
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Имя файла: | | | Открыть | 


Тип файлов: ГА Files -| Отмена | 


Г Только чтение — 


Рис. 1.7. Диологовое окно открытия файла. 


e Save (Сохранить) или нажатие комби- 
нации клавиш Ctri+S сохраняет файл 
под тем же именем; 

e Save As (Сохранить как) или нажатие 
комбинации клавиши Ctri+Alt+S вызы- 
вает диалоговое окно Save as (Сохра- 
нить как), с помощью которого можно 
сохранить файл под новым именем 
и/или в новом месте, в другом формате; 

e Save АП (Сохранить все), если он досту- 
пен, или нажатие комбинации клавии 
Alt+Shift+S сохраняет все открытые 
файлы; 


1 C/ALISPADD_N_L.LSP 

2 C/ALISP/COPY_L.LSP 

3 CJALISP/DIF.LSP 

А C/ALISP/DJON.LSP 

5 C7/ALISP/EARLY_A_B_LLSP 
6 CZALISP/GCL.LSP. 

? С1АЧЗРЖОТ ТЕР. LSP 

8 C/AUSP/KOTTEDJ.MKP 
9 CZALISP/POSL1.LSP 

10 CZALISP/PRIVET2W. LSP 
More files... 


Рис. 1.8. Список не закрытых файлов 


e Close (Закрыть) или нажатие комбинации клавиш СН1+Е4 закрывает 
активное окно, то есть окно текущей программы (файла): 

e Revert (Возвратить) возвращает содержимое буфера в файл; 

e Close АП (Закрыть все) закрывает все окна текстового редактора: 

e Print... (Печать) или нажатие комбинации клавиш Ctrl+P вызывает 
диалоговое окно печати для ввода имени принтера, числа копий и ряда 


других установок (рис. 1.9); 


r_a 
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Печать 3] х 
о. . 
г Принтер 
LEi. | A aE 
Имя: -] Свойства | 


_ | Состояние: Выбран по умолчанию; Готов 
| 


Тип: Epson Lx-100 
Порт: LPTI: 


— арх -- w 
| Semet: Г Печать в файл 


— Печатать —————— [Копии 


| Число копий: | - 
| и 


САС 


№ Разобрать 


© Все 


Рис. 1.9. Диалоговое окно печати 


Настройка принтера 2х. 


— Принтер 


Имя: r:son LX-100 g | Свойства | 


| Состояние: Выбран по умолчанию; Готов 
| Тип: Epson Lx-100 


Порт: LPTI: 
Заметки: 
— Бумага Ориентация— 


Размер: [АА 210х237 мм -| © Книжная 


| Подача: [Ленточный податчик | А С Альбомная 


Рис. 1.10. Диологовое окно настройки принтера 
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e Print Setup... (Настройка принтера) вызывает диалоговое окно Ha- 
стройки принтера для установки размера бумаги и ввода ряда других 
установок (рис. 1.10); | 

e Make Application (Создать приложе- Г””Авудройсавой Wizard — 
HHE) или нажатие комбинации клавиш |- i Ẹxyisting Application Wizard... 
Ctrl+Shift+M выводит следующий спи- } Ви Application from Make File 
сок Мастеров приложений (рис. 1.11): 
e New Application Wizard... (Мастер 

нового приложения) вызывает диало- 
говое окно для создания нового приложения с помощью Мастера; 

e Existing Application Wizard... (Мастер существующего приложения) 
вызывает диалоговое окно для изменения существующего приложе- 
ния с помощью Мастера; 

e Build Application from Make File (Создать приложение из таке-фай- 
ла) предназначено для построения приложения из файла с расшире- 
нием МКР; 

e Load File... (Загрузить файл...) или нажатие комбинации клавиш 
Ctrl+Shift+L вызывает диалоговое окно загрузки файлов Load lisp file 
(Загрузить lisp файл) (рис. 1.12); 

e Toggle Console Log... (Установить/удалить файл регистрации коисо- 
ли) вызывает дналоговое окпо для создания файла регистрации Ореп 
Log (Открыть файл регистрации) (рис. 1.13): 


Term 


Рис. 1.11. Список Мастеров 
приложений 


Load lisp file 21 ж. 


Папка: E AutoCAD R14 -] l S| der gig 


s a г * т ` 
a 


3 Има файла: | Открыть 
L Тип файлов: Lisp Source Files -| Отмена | 


t # 
s „ 
Ро 


Рис. 1.12. Диалоговое окно загрузки файла 


Te- -m a a 
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Open log 


; iva [5 Мои документы "| A el EE a 


“mssetup t 
Corel User Filas 
Microsoft 


2х 


Имя файла: | | Сохранить | 
‚ Тип файла: [Log Files (log) ~] Ormea | 


Рис. 1.13. Открытие диалогового окна файла регистрации 


e Exit (Выйти) или нажатие комбина- [урируииеиетеж 
ции клавиш Alt+ỌQ вызывает диало- | 
говое окно Exiting Visual LISP.. > © Really май о quit session? 
(Выход из Visual LISP) для выхода ^ i 
из системы Visual LISP (рис. 1.14). 

В диалоговом окне появляется во- 

прос Really want to quit session? 
(Действительно ли вы хотите выйти из Рис. 1.14. Диалоговое окно выхода 
Visual LISP?). Если щелкнуть мышкой из системы Visual LISP 

по кнопке Yes (Да), то сеанс работы с Visual LISP завершится. 


1.2.2. Падающее меню редактирования: Edit 


Выбор пункта Edit (Редактирование) главного меню или нажатие 
комбинации клавиш АЁ+Е вызывает падающее меню редактирования 
(рис. 1.15). 
Падающее меню редактирования включает большой набор пунктов: 
e Undo (Отменить) или нажатие комбинации клавиш CtrÌl+Z отменяет 
последнюю из выполненных команд; 
e Redo (Вернуть) или нажатие комбинации клавиш Ctri+Alt+Z дает 
возможность повторно выполнить последнюю из отмененных команд; 
e Cut (Вырезать) или нажатие комбинации клавиш СИ1+Х удаляет Bhi- 
деленный фрагмент текста и помещает его в буфер обмена; 
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| -Parentheses Matching СУМ ›. 
Extra Commands СИЕ > а И A O a AA | 


- Console History Up >. Tab 
Console History Down _ Shift Tab 


Рис. 1.15. Подающее меню редактирования Edit при активном окне текстового редактора 
[слева] и при активном окне консоли Visual LISP (справа) 


e Copy (Копировать) или нажатие комбинации клавиш Ctrl+C копиру- 
ет выделенный фрагмент текста и помещает его в буфер обмена; 

e Paste (Вставить) или нажатие комбинации клавиш Си]+У вставляет 
содержимое буфера обмена в текущую позицию курсора в окне тексто- 
вого редактора или окне консоли; 

e Delete (Удалить) или нажатие клавиши Del удаляет выделенный 
фрагмент программы; 

e Clear Console Window (Очистить окно консоли) очищает окно KOI- 
соли, удаляет всю имеющуюся в окне информацию; 

e Clear Console Input (Очистить ввод с консоли) или нажатие клавиии! 
Esc очищает введенную пользователем пиформацию в окие коисоли; 

e Keep but Ignore Input (Сохранить, но игнорировать ввод) осуществ- 
ляет сохранение ранее введенной информации и переход в состояние 
ожидания ввода данных; | 

e Parentheses Matching (Соответствие круглых скобок) или нажатие 
комбинации клавиш Ctrl+M определяет соответствие круглых скобок. 
При выборе этой команды появляется 


следующий список возможных действий Match Forward Ctr- 

по поиску круглых скобок (рис. 1.16): Match Backward Си-[ 

e Match Forward (Поиск закрывающей Select Forward. Ctrl-Shift-] 
скобки) или нажатие комбинации кла- Select Backward Ctrl-Shift-{ 


виш Ctrl+}] осуществляет поиск соответ- Рис. 1.16. Список команд для 
ствующей закрывающей круглой скобки: поиска круглых скобок 
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e Match Backward (Поиск открывающей скобки) или нажатие комби- 
нации клавиш СЫ1+[ осуществляет поиск соответствующей откры- 
вающей круглой скобки; 

e Select Forward (Выделение выражения после скобки) или нажатие 
комбинации клавиш Си1+5 4+] производит выделенне выражения, 
которое начинается с указанной открывающей скобки; 

e Select Backward (Выделение выражения до скобки) или нажатие 
комбинации клавиш Ctrl+Shift+[ производит выделение выражения, 
которое заканчивается указанной закрывающей скобкой; 

e Console History UP (Хронология сообщений консоли вверх) или Ha- 
жатие клавиши Tab вызывает отображение хронологии сообщений до 
текущего сообщения; 

e Console History Down (Хронология сообщений консоли вниз) или 
нажатие комбинации клавиш Shift+Tab вызывает отображение хроно- 
логии сообщений после текущего сообщения; 

e Extra Commands (Особые команды) или нажатне комбинации клавиш 
Ctrl +E позволяет вызвать список особых команд. 


1.2.3. Падающее меню поиска: Search 


Выбор пункта Search (Поиск) главного меню или нажатне комбинации 
клавиш Alt+S вызывает падающее меню поиска (рис. 1.17). 

Меню, представленное на рис. 1.17, содержит следующие пункты: 

e Find... (Найти...) или нажатие комбинации клавиш Ctrl+F выводит 
диалоговое окно с текстовым потем Ета What: (Найти что); 

e Replace... (Заменить...) или нажатие комбинации клавиш Ctri+H вы- 
водит диалоговое окно Find (Найти), в котором имеется два тексто- 
вых поля Find What (Найти что) и Replace with: (Заменить на); 

e Find/Replace Next (Найти/ 


Заменить следующее) или “ Bin АСИ и 
| мы F3 „Replace... G ei Cir- 
нажатие клавиши нахо Find/Replace Next F3 


дит в программе старое соче- 
тание символов и заменяет ‘” Complete Word Бу Match -+ Си-брасе 
его на новое; «Complete Word Бу Apropos : Си-ЗЫй-Зрасе 
e Complete Word by Match “Bookmarks Ара ия 
(Заверигить слово в полном И Рим мессвае У ВВ-ЕТИ 
соответствии) или нажатие p hev теззьде НЕ Е14 
комбинации клавиш Ctrl+ | 
Space дописывает имена 
встроенных функций, сис- 
темных переменных; Рис. 1.17. Подающее меню поиска Search 


$ Goto Line. ^^” OG 
FE AA EE RS EA JE ke d 
t; Goto Last Edited. sa a OtShitG i 
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e Complete Word Бу Apropos (Поиск слова по фрагменту) или нажатие 
комбинации клавиш Ctri+Shift+Space вызывает список имен функ- 
ций, системных переменных, содержащих введенный фрагмент. При 
щелчке по нужному имени это имя заменяет введенный фрагмент; 

e Bookmarks (Установить закладки) выводит всплывающее меню для 
установки закладок; | 

e Со to Line... (Идти к строке...) или нажатие комбинации клавиш 
Ctrl+G выводит диалоговое окно Enter line number (йхпит) (Введите 
номер строки) для установки номера строки; 

e Go to Last Edited (Идти к последнему месту редактирования) или Ha- 
KATHE комбинации клавиш Си1+5ЫЁ+С устанавливает курсор в Mec- 
те последнего редактирования. 


1.2.4. Падающее меню просмотра: View 


Выбор пункта View (Просмотр) главного меню или нажатие комбинации 
клавиш А+У вызывает падающее меню просмотра (рис. 1.18). 
Меню, представленное на рис. 1.18,’содержит следующие пункты: 
e Inspect (Проверить) или нажатие комбинации клавиш Ctri+Shift+I 
вызывает диалоговое окно Enter expression to inspect (Введите выра- 
жение для проверки) для контроля за правильностью работы прове- 


ряемого выражения, 


e Trace Stack (Стек трассировки) или нажатие комбинации клавиш 
Ctri+Shift+T вызывает окно Trace Stack с результатами трассировки 


стека: 


e Error Trace (Трассировка ошибки) или нажатие комбинации KABHI 


Ctrl+Shift+R вызывает окно Error 


trace с результатами трассировки Inspect:  Ctrl-ShifH 
ошибки: | | 

e Symbol Service (Обслуживание To aN 

Error Trace Ctrl-Shift-R 

CHMBOJIOB) HJIH нажатие комбина- рае ин 
ции клавиш Си1+$ЫЁ+$ вызыва- А МЕНЕ: 
ет диалоговое окно Enter symbol - Watch Window Ctri-ShiftW 
name (Введите имя символа) для Apropos Window... Ctrl-ShiitA 
обслуживания символов; ME E Window Ctrl-Shit-E 

e Watch Window (Окно наблюде- ©: 200e Window a r 
ний) или нажатие комбинации кла- _ LISP Console Еб 
BHW CtrÌl+Shift+W вызывает окно 4 Browse Drawing Datábase © t45 › 
Watch (Наблюдения) для просмот- === зы Ea 

E Toolbars... 


ра текущих значений CHMBOJIOB; 
e Apropos Window (Окно поиска 
по фрагменту) или нажатие 


Рис. 1.18. Подающее меню просмотра 
View 
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комбинации клавиш Ctri+Shift+A открывает диалоговое окно 
Apropos... (Поиск по фрагменту) для настройки системы понска сло- 
ва по фрагменту; 

e LISP Console (Консоль LISP) или нажатие клавиши F6 вызывает 
окно Visual LISP Console (Окно консоли Visual LISP); 

e Browse Drawing Database (Обзор базы данных рисунков) вызывает KO- 
манды просмотра базы данных рисунков, всех объектов, таблиц H т.д.; 

e Toolbars... (Панели инструментов) вызывает диалоговое окно уста- 
новки необходимых панелей инструментов. 


1.2.5. Падающее меню управления проектом: Project 


Выбор пункта Project главного меню > New Project. ут 
или нажатие комбинации клавиш E И ООНИР 
Alt+P вызывают падающее меню сое РаЕа В 
управления проектом (рис. 1.19). 


Project Properties... 
Меню. представленное на рис. 1.19, ВЖЕ 


включает в себя следующие пункты: -Load Project EAS File |, 
e New Project (Новый проект) обес- Load Project source Files 
печивает создание нового проекта; Build Project FAS: 
e Open Project (Открыть проект) Rebuild Project FAS 
или нажатие комбинации клавиш | тает 
Ctrl+Shift+P обеспечивает откры- Рис. 1.19. Подающее меню управления 
тие существующего проекта. проектом Project 


1.2.6. Падающее меню отладки: Debug 


Выбор пункта Debug главного меню или нажатие комбинации клавиш 
Alt+D вызывает падающее меню отладки (рис. 1.20). 

Меню, представленное на рис. 1.20, содержит следующие пункты: 

e Add Watch (Добавить наблюдение) вызывает диалоговое окно Enter 
expression to watch (Введите выражение для наблюдений) значений 
введенного выражения; 

e Watch Last Evaluation (Наблюдение последних вычислений) вызыва- 
ет окно Watch (Наблюдения) для просмотра последних вычислений; 

e Trace Command (Трассировка команд) включает или выключает трас- 
сировку команд; 

e Stop Once (Остановка сразу) включает или выключает немедленную 
остановку вычислений; 

e Break Оп Error (Прерывание на ошибке) включает или выключает 
прерывание выполнения при обнаружении ошибки; 

e Animate (Оживить) включает или выключает выполнение вычислений. 
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1.2.7. Падающее меню средств "Зета 
| F P SIED OJER EEE RERS ж4 
управления системой: Tools ЕО ОНО CENAE A 


f 
A 


Выбор пункта Tools (Инструменты) глав- | Eoninuep eonia GEE E 


ного меню или нажатие комбинации кла- I Besetto toplevel ONP 
виш Alt+T вызывает падающее меню :`аиСитет(евуе! ^^ ©-9 e 
средств управления системой (рис. 1.21). N ии 
В меню представлены следующие пункты: | Watch Last Evaluation i 

e Load Selection (Загрузить выделен- ` 
ное) или нажатие комбинации клавиш 
Ctrl+Shift+E позволяет загрузить вы- 
деленное выражение на выполнение | LastBreak Source. +: С-РЗ 


| Toggle Breakpoint F9 4 
“y Clear All Breakpoints › Ctrl-ShiftF9 


и выполнить его; у Trace Command 

e Load Text in Editor (Загрузить текст из | Stop Олее 
окна редактора) или нажатие комби- Break Оп Error 
нации клавиш Ctri+Alt+E позволяет = ^Anmete 
загрузить текст из окна текстового pe- ` AbonEyəluaton ©. 


дактора на исполнение; 
e Check Selection (Проверить выделен- 
ное) или нажатие комбинации клавиш 
Си1+5ЫЙ+С позволяет проверить и загрузить выделенное выражение 
на выполнение и выполнить его; 
e Check Text т Editor (Проверить текст в окне редактора) или нажатие. 


Рис. 1.20. Подоющее меню 
отладки Debug 


`` Load Selection. T Ctrl-ShiftE 

v. Load Text in Editor < CtrFAItE 
1i Check Selecion k OSKE 
P- Check Text in Editor = > = OFAC AutoCAD Mode Ctri-Shift-C 
t ‘Format AutoLISF in Selection ` Ctrl-ShiftF | Window Attributes | á 
l= Format AutoLISP in Editor > Ctr-AltF | Environment Options í 
ko i Interface Tools- = a | и SE не 
N Window Attributes ; i 


l Environment Options EITS 


ата 
‚ * Save Settings 


Рис. 1.21. Подающее меню Tools при активном окче текстового редактора [слева] 
и при активном окне консоли Visual LISP (спрова) 


жа. +34 дома ль ЛАЙН офф осадные чины. Печаль оне Фиат дов о НО В а анна s ae 


G =” 
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комбинации клавиш Ctril+tAlt+C позво- ^ Syni Colonng. 
ляет проверить и загрузить текст из - Configure Current... 
окна текстового редактора на исполне- 2a ora maoa 
ние; 

e AutoCAD Mode (Режим AutoCAD) 
или нажатие комбинации клавиш 
Ctri+Shift+C позволяет переключиться Рис. 1.22. Список параметров окна 


Current \ипас to Erototype 


t 
Et АИ Wmdows to Prototype 


в режим работы AutoCAD; Visual LISP 

e Window Attributes (Параметры окна) 
позволяет изменить следующие Napa- General Options... 
метры окна Visual LISP (рис. 1.22): AutoLISP Format Options... 
e Configure Current... (Текущая конфи- Page Setup Options... 


гурация) обеспечивает вызов диалого- 
вого окна установки текущей конфи- 
гурации окна Visual LISP; 
e Font... (Шрифты...) обеспечивает вызов диалогового окна выбора 
шрифта окна Visual LISP; 
e Environment Options (Режимы среды) позволяет установить режимы 
работы среды Visual LISP (рис. 1.23); 
e Save Setting (Сохранить установки) обеспечивает сохранение устано- 
вок рабочей среды Visual LISP. 


Рис. 1.23. Список режимов 
среды 


1.2.8. Падающее меню управления окнами: Window 


Visual LISP позволяет организовать работу с несколькими окнами одноврс- 
менно. Выбор пункта Window (Окно) главного меню или нажатие комби- 


нации клавиш Alt+W вызывают падающее - Tile Horizontally 


‚ Tile Vertically (Вертикальные подокиа) | 
обеспечивает вертикальное расположение 
окон. Окна располагаются слева направо 5 
и им отводятся равные части рабочего стола; Рис. 1.24. Падоющее меню 

e Cascade (Каскад) обеспечивает каскадное управления окнами Window 


1 Trace 
‚у 2 Visual USP Console 


меню управления работой с несколькими OK- Tile Vertically 
нами (рис. 1.24). Cascade .. 
Меню, представленное на рис. 1.24, включа- ' ей ря 
ет в себя следующие пункты: AEN | 
e Tile Horizontally (Горизонтальные подо- | 
кна) обеспечивает горизонтальное разме- = ‘сое All 
щение окон, которые располагаются одно -  Arengeleons O = — 
под другим сверху вниз. Всем окнам отво- Close Windows > 
дятся равные части рабочего стола; > Activate AutoCAD 


SR 
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расположение окон. Окна располагаются друг за другом уступом так, 
что заголовки всех окон остаются видны. Активное окно размещается 
поверх остальных; 

. Zoom (Масштабировать) обеспечивает уменьшение/увеличение раз- 
мера отображения активного окна; 

e Organize (Организовать) определяет режим упорядочения расположе- 
ния окон, работает как переключатель; 

e Iconize АЙ (Минимизировать все) минимизирует все открытые окна 
Visual LISP; 

e Arrange Icons (Упорядочить минимизированные окна) упорядочива- 
ет все минимизированные окна Visual LISP - иконки; 

e Close Windows (Закрыть окна) обеспечивает закрытие окон: All (Все) 
или Inspectors (Проверки); 

e Activate AutoCAD (Активизировать AutoCAD) активизирует CHCTE- 
My AutoCAD. 

На рабочем столе Visual LISP могут быть представлены несколько OT- 

крытых окон, например, окно трассы Trace, окно консоли Visual LISP 


Console и несколько окон текстового редактора. 


1.2.9. Падающее меню помощи: Нер 


Выбор пункта Help главного меню или нажа- | Vigua LISP Нав Topics = 
тие комбинации клавиш Alt+H вызывает nana- : 
ющее меню помощи (рис. 1.25). TE ХВ 

Падающее меню помощи содержит следую- < About Visual ISP 
щие пункты: 

e Visual LISP Help Topics a CHC- 
тема) или нажатие клавиши F1 обеспечи- 
вает вызов справочной системы по Visual LISP (рис. 1.26); 

° Tutorial (Обучающая программа) вызывает краткий учебник по Visual 
LISP; 

e About Visual LISP (О программе Visual LISP) обеспечивает доголни- 
тельной информацией no Visual LISP. 

Диалоговое окно справочной системы по Visual LISP имеет три заклад- 

ки: Содержание, Указатель и Поиск. 

В окне Содержание представлен список названий разделов справочной 
системы Visual LISP. Щелкая мышкой по названиям того или иного раз- 
дела, можно получить исчерпывающую информацию по Visual LISP 

В окне Указатель содержится список функций и терминов. Для получе- 
ния нужной информации введите первые буквы нужной функции в первом 
поле справочной системы или выберите ее с помощью полосы прокрутки. 


Tutorial 


Рис. 1.25. Подающее меню 
помощи Нер 


2 — 1278 
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Справочная система: Visual ИЗР(ТМ) юг AutoCAD Release 14 Guide Ka Ed 


Содержание Указатель | Помск | 


1 Взедите первые буквы нужного слова. 


2 Выберите термин или фразу и нажмите кнопку "Показать". 


- (зибтасвап) 
№Муге Some Соае! 
= (пиурясавеп) 
“пог 
‚ YL R-AcDb-reactor 
YLR-Ecitor-reactor 
У А-зупКег-геаааг 
VLR-Objectreactor 
? (dwision) 
{= (not equal to) 
~ (bimse NOT) 
+ (gzon) 
< less than) 
<= (less than or equal to) 
= (equal to) 
> (şreater than) >| 


Показать Печать... | Отмена | 


Рис. 1.26. Справочная система для Visuol LISP 


Окно Ноиск предназначено для оперативного поиска нужной информации. 
Чтобы получить необходимые сведения, достаточно ввести в верхнем поле ис- 
комый термин, в нижнем поле выбрать вариант использования этого терми- 
на (для сужения диапазона поиска) и щелкнуть по кнопке Показать. 


1.3. Панели инструментов Visual LISP 


Для облегчения работы со средой Visual LISP можно вывести на экран HH- 
струментальные панели (рис. 1.27). Вывести или отключить требуемые 
панели инструментов можно с помощью пункта Toolbars... (Панели инст- 
рументов) падающего меню View (Просмотр), который вызывает диало- 
говое окно выбора панелей инструментов Toolbars (рис. 1.28). 
Диалоговое окно обеспечивает управление отображением на экране сле- 
дующих панелей инструментов: Standard (Стандартная), Search (Поиск), 
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(U Visual LISP for AutoCAD Release 14 
File Edit Search View Project Debug Iools Window Help 


EEOAE 


lks ualian во e sievai 


|->. KOTTEDJ.LSP ти 


-` Пример вызова Функции (KOTTEDJ $0 КВ UXY UX). 
~P: (KOTTEDJ (LIST (LIST 20 20 © 50 30 40) 


jk | (LIST 30 20 13 10 3 13) 
-| Fi (LIST 50 20 13-10 3 13) | 
f (LIST. 55 50 0 12 -3 28)) 60 49 


s DEDE IE IE JE IE IE JE IE IE ICIC DE IE JE IE IE JE JE JC JE IE IC IE JE JE JE JE JE IC IC JE JE J€ IE IC IC JE JE FC JÉ IC IC JC JC JE C2 
neei varten ILCO KR (ХУ UX) 
BLAA БЕ 


igaya си aesa 0.0” 7300.400" "ZooM" “A") , 
А ро o E o a Aa Aa SIN EOT | | ‚| | 


[| View: C/ALISP/KOTTEDJ.LSP_ fAutoLISPì RO П 00015 C 00015 


Рис. 1.27. Главное окно Visuol LISP с инструментальными панелями 


Tools (Инструменты), Debug (Отладка), View (Просмотр). Для того что- 
бы вывести ту или иную панель на экран, необходимо щелчком мышки 
включить/выключить соответствующие флажки, после чего нажать кноп- 
ку Apply (Применить). Если щелкнуть по кнопке Show all (Показать все), 
в главном окне Visual LISP появятся все инструментальные панели. 

Для удаления инструментальных панелей из главного окиа Visual LISP 
необходимо нажать киопку Hide all (Скрыть все), а затем кнопку Close 
(Закрыть). 

При перемещении указателя мышки по ВА\ЕШЕ 


значкам (пиктограммам) инструменталь- 
Hide all | 


ных панелей высвечивается назначение 
каждой кнопки панели, а в строке состоя- |I Search Show all | 
M Tools ! 


ния в самом низу главного окна Visual 
Apply 
в. 


LISP появляется более подробиое объяс- 
Г View 


нение. С каждой кнопкой связан опреде- 
ленный пункт меню, а рисунок на этой 
кнопке передает суть этого пункта меню. 
Вызывать пункт меню с помощью кнопки Рис. 1.28. Диалоговое окно выбора 
гораздо быстрее, чем выбирать в меню. панелей инструментов 
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1.3.1. Панель инструментов просмотра: View 


Панель инструментов просмотра включает восемь основных кнопок 
(рис. 1.29). 


Е реет 4 
|2 Ф0%$(с) 


Рис. 1.29. Панель инструментов просмотра View 


На панели инструментов View (Просмотр) размещаются следующие 

КНОПКИ: 

м Activate AutoCAD (Активизировать систему AutoCAD). Описание 

="! в строке состояний — Activate AutoCAD (Активизируется AutoCAD); 

Е- Select window (Выбрать окно). Описание в строке состояний — Select 
Visual LISP window from list (Выбор окна Visual LISP из списка); 

ga LISP console (Выбрать консоль AutoLISP). Описание в строке состо- 

`` яний — Activate Visual LISP console / bring console to top (Активизи- 
рование Visual LISP консоли / перенесение консоли наверх); 

5 Inspect (Проверить). Описание в строке состояний — Open an 

`“ inspector window and enter expression (Открытие окна просмотра для 
ввода выражения); 

e9, Trace (Трассировка ошибки). Описание в строке состояний — Ореп 

— the inspector window Юг last error trace stack (Открытие окна просмот- 

ра последней ошибки трассы стека); 

Symbol service (Обслужить символы). Описание в строке состоя- 

ний — Activate the symbol service window (Активизация окна обслужи- 

вания символов); 

É) Apropos (Найти слово по фрагменту). Описание в строке состояний — 
Open the apropos window for assistance оп LISP expressions (Открытие 
окна поиска слова по фрагменту для помощи LISP-sBbpaxennam); 
Watch window (Открыть окно наблюдений). Описание в строке co- 

Е стояний — Open the watch window (Открытие окна наблюдений). 


1.3.2. Панель инструментов: Tools 


Панель инструментов включает девять кнопок (рис. 1.30). 
] 
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Рис. 1.30. Нанель инструментов Tools 


37 


Панели инструментов Visual LISP 


На панели инструментов Tools (Инструменты) размещаются следую- 
щие кнопки: 
СЯ Load activate edit window (Загрузить программу из активного окна 
SA редактирования). Описание в строке состояний — Load and evaluate 
the code in the active editor window (Загрузка и выполнение програм- 
мы в активном окне редактора); 
Cy Load selection (Загрузить выделенное выражение). Описание в стро- 


| 
’ 


LAM ке состояний — Load and evaluate the selected text (Загрузка и выпол- 


нение выделенного текста); 

Г у Check edit window (Проверить синтаксис программы в активном 

SMil окне редактирования). Описание в строке состояний — Perform syntax 
checking of AutoLISP code in the active editor window (Выполнение 
синтаксической проверки программы AutoLISP в активном окне pe- 
дактора); 

"eg Check selection (Проверить синтаксис выделенного). Описание 

LYLA в строке состояний — Perform syntax checking of selected AutoLISP 
code in edit window (Выполнение проверки синтаксиса выделенной 
программы AutoLISP в окне редактирования); 

iMa Format edit window (Отформатировать программу в активном окне 

"AS редактирования). Описание в строке состояний — Format AutoLISP 
code in the active editor window (Форматирование программы 
AutoLISP в активном окне редактора); 

879 Format selection (Отформатировать выделенный фрагмент). Описа- 

“та ние в строке состояний — Format AutoLISP code in the current selection 
(Форматирование программы AutoLISP в текущем выборе); 

== Comment Моск (Закомментировать блок). Описание в строке состоя- 

Ssa ний — Comment out the selection block of text (Комментирование выб- 
ранного блока текста); 

Ma! Uncomment block (Разкомментировать блок). Описание в строке co- 

tèsi стояний — Uncomment the selection block of text (Отмена коммента- 

риев у выбранного блока текста); 
)`Нефр (Помощь). Описание в строке состояний — Visual LISP Help 
taci ( Помощь Visual LISP). 


1.3.3. Панель инструментов отладки: Debug 


Панель инструментов отладки включает девять кнопок и один индикатор 
в виде кнопки (последний на панели инструментов) (рис. 1.31). 
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Рис. 1.31. Понель инструментов отладки Debug 
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На индикаторе изображены круглые скобки и положение курсора. На 
индикаторе курсор может стоять перед круглыми скобками; это означает, 
что процесс отладки остановлен перед выражением Stopped before (Оста- 
новлен перед) или после — Stopped after (Остановлен после). 

На панели инструментов Debug (Отладка) размещаются следующие 
кнопки: 


© 


(5) 


Step into (Шагнуть внутрь выражения). Описание в строке состоя- 
ний — Step into the nested expression НЕВЕ впутрь вложенного 
выражения): 

Step over (Шагнуть с обходом). Описание в строке состояний — Step 
over the next expression (Шагнуть до следующего выражения); 

Step out (Шагнуть вне выражения). Описание в строке состояний — 
Step out to the end of the current function (Шагнуть вне к концу теку- 
щей функции); 

Continue (Продолжить отладку). Описание в строке состояний — 
Continue то the next breakpoint ог to the end (Продолжить до следую- 
щей точки прерывания или до конца); 

Quit (Выйти из текущего уровня отладки). Описание в строке состо- 
яний (внизу окна) — Quit the current debug level (Выход из текущего 
уровня отладки); 

Reset (Вернуться на верхний уровень). Описание в строке состоя- 
ний — Reset to the top level (Вернуться на верхний уровень); 

Toggle breakpoint (Установить/удалить точку прерывания). Описа- 
ние в строке состояний — Add ог remove а breakpoint at the current 
location (Добавление или удаление точек прерываний в текущем NO- 
ложении); 

Add watch (Добавить выражение для просмотра). Описание в строке 
состояний — Add ап expression to watch (Добавить выражение для 
просмотра); | 

Last break (Последнее прерывание). Описание в строке состояний — 
Show last break source (Показать источник последнего прерывания). 


1.3.4. Панель инструментов поиска: Search 


Панель инструментов поиска включает семь кнопок и раскрывающийся 
список с текстовым полем (рис. 1.32). 
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Рис. 1.32. Панель инструментов поиска Search 
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В текстовом поле раскрывающегося списка вводятся символы для по- 
иска их в активном окне текстового редактора или окне консоли. Щелч- 
ком по стрелке, направленной вниз, можно раскрыть список и выбрать 
в нем ранее введенные символы. 

На панели инструментов Search (Поиск) размещаются следующие 
KHONKH: | 

44 Find (Найти). Описание в строке состояний — Search for text (Поиск 
текста). Точнее, поиск введенного текста в текстовом поле диалогового 
окна Find, которое появляется после щелчка по кнопке Find (Найти); 
д» Replace (Заменить). Описание в строке состояний — Search for text 
не replace it with new text (Поиск введенного текста и замена его на HO- 
вый текст); 
i Find toolbars string (Найти строку текстового поля). Описание в стро- 
stetu ке состояний — Find the current string in the toolbars (Найти текущую 
строку текстового поля); 
ua Toggle bookmark ( Установить/удалить закладку). Описание в строке 
ii состояний — Add/remove а bookmark at the current position (Добавле- 
ние/удаление закладки на текущей позиции); 
% Next bookmark (Перейти к следующей закладке). Описание в строке 
> состояний — Move to the next bookmark (Перейти к следующей 3a- 
кладке); 
¿Previous bookmark (Перейти к предыдущей закладке). Описание 
- в строке состояний — Move to the previous bookmark (Перейти к npe- 
дыдущей закладке); 
‚ Clear all bookmark ( Удалить всс закладки). Описание в строке состо- 
Su яний — Clear all bookmark ( Удалить все закладки). 


Информация, отображаемая в строке состояния (в самом низу главного 
окна Visual LISP), изменяется в зависимости от того, какос действие 
в настоящий момент вы выполняете в Visual LISP. 

Обратите внимание на минимизированнос окно поиска нескольких CHM- 
волов. При запуске это окно информирует о текущем состоянии Visual 
LISP. Кроме того, оно может содержать дополнительную информацию, 
например, об ошибках VLISP во время запуска. 


1.4. Текстовый редактор Visual LISP 


Текстовый редактор Visual LISP предназначен для эффективной разработ- 
ки, проверки и отладки программ па AutoLISP. 

Окно текстового редактора вызывается автоматически при открытии 
файла с программой на AutoLISP в диалоговом окне Open file to edit/view 
(Открыть файл для редактирования/просмотра» (см. рис. 1.7). 
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Вызвать диалоговое окно открытия файла можно двумя способами: 
° выбрать пункт Open File... (Открыть файл) падающего меню File 
(Файл) (см. рис. 1.5); 

* нажать комбинацию клавиш CtrÌ+O. 

В диалоговом окне открытия файла необходимо найти соответствую- 
щую папку (каталог) и дважды щелкнуть по ней мышкой. В раскрытой 
папке (каталоге) аналогичным способом следует открыть нужный файл, 
который будет помещен в текстовое окно системы Visual LISP. 

В качестве примера рассмотрим файл DOM.LSP, который содержит про- 
грамму, имеющую всего одну функцию языка AutoLISP —- (COMMAND...) 
(рис. 1.33). | 

Когда вы вносите изменения в тексте программы в редакторе или добав- 
ляете новый текст, рядом с именем файла в строке состояния появляется 
звездочка (*). Она сохраняется рядом с названием файла до тех пор, пока 
вы не сохраните внесенные изменения либо не закроете файл. 

Следует помнить, что одновременно можно работать только с одним 
файлом в одном окне текстового редактора. Каждый раз при открытии 
файла Visual LISP отображает файл в новом окне текстового редактора. 

Текстовый редактор Visual LISP обеспечивает цветное отображение 
программ. Кроме того, он выполняет синтаксический анализ программ на 
языке AutoLISP и назначает соответствующие цвета различным констан- 
там. именам функций. Это позволяет выявлять синтаксические ошибки до 
выполнения компиляции. 

Текстовый редактор предоставляет возможность форматировать про- 
граммы AutoLISP, тем самым делая их более удобными для чтения. При 
этом можно выбирать различные стили форматирования. 

Программы на языке AutoLISP содержат большое количество круглых 
скобок. Текстовый редактор помогает найти ближайшую закрывающую 
круглую скобку, которая соответствует указанной открывающей скобке. 

Путем высвечивания текстовый редактор Visual LISP позволяет выби- 
рать отдельные фрагменты программы и выполнять их. При этом необяза- 
тельно выходить из текстового редактора и выполнять всю программу 
в целом. Помимо этого, у пользователя есть возможность осуществлять 
поиск слова или выражения, проверять синтаксис отдельных выделенных 
фрагментов программы. 

Текстовый редактор позволяет загрузить программу для последующего 
ее выполнения. В таком случае важно, чтобы окно текстового редактора 
было активным. Если вы не уверены в этом, щелкните мышкой в любом 
месте окна и сделайте его активным. Чтобы загрузить программу, щелкни- 
те мышкой по кнопке Load activate edit window (Загрузить программу из 
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Рис. 1.33. Окно текстового редактора 


активного окна редактирования) или выберите пункт Load Text in Editor 
(Загрузить текст программы из активного окна редактирования) падаю- 
wero меню Tools (Инструменты) главного меню Visual LISP. На экране 
появится сообщение о загрузке программы в окне консоли Visual LISP 
такое как, например, на рис. 1.34. 

Из сообщения, приведенного на рис. 1.34, следует, что загрузка выполнена 
из текстового редактора файла РОМ.ГЗР, который состоит из одной формы 
с указанием имени файла и каталогов (пути), в которых он находится. 

После загрузки программы ее можно запустить на выполнение из ко- 
мандной строки консоли. Для этого достаточно ввести имя a 
в круглых скобках и нажать клавишу Enter. 

Во время ввода команд с консоли Visual LISP или выполнения програм- 
мы, загруженной из текстового редактора, можно переключаться между 
окнами AutoCAD и Visual LISP. Помимо стандартных методов переклю- 
чения между приложениями Windows, существует еще несколько методов 
переключения между окнами AutoCAD и Visual LISP. 

Если вы находитесь в Visual LISP, используйте пункт Activate 
AutoCAD (Активизировать AutoCAD) падающего меню Window (Окно) 
в главном меню Visual LISP (см. рис. 1.24). 

Допустим, вы находитесь в AutoCAD и хотите вернуться в среду Visual 
LISP. В таком случае введите команду УГЛЕ (Вызов среды Visual LISP) 
в командной строке AutoCAD. 
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(А Visual USP юг AutoCAD Release 14 - [Visual USP Console] 
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Рис. 1.34. Окно консоли Visual LISP 
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Окно консоли Visual LISP служит для отображения диагностических 
сообщений об ошибках в программах AutoLISP и результатах работы MHO- 
гих функций AutoLISP. Например, в окне консоли отображается резуль- 
тат работы функции (PRINC...). 

Для отображения текущего значения переменной AutoLISP в Visual 
LISP достаточно набрать имя переменной в окне консоли и нажать клави- 
wv Enter (Ввод). 

Чтооы выполнить. оценить и просмотреть результаты, выражение 
AutoLISP можно вводить в окне консоли Visual LISP. Если требуется вве- 
сти больше одной строки, то для ввода следующей строки нажмите ком- 
бинацию клавиш Ctrl+Enter. Несколько выражений можно вводить до 
нажатия клавиши Enter (Ввод). 

Помните, что у вас есть возможность копировать и передавать текст меж- 
ду консолью и окном текстового редактора. Большинство команд тексто- 
вого редактора также доступны в окне консоли. 

Нажатием клавиши Tab можно восстановить предыдущую команду, KO- 
торая была введена в окне консоли. Неоднократное нажатие клавиши Tab 
восстанавливает более ранние команды. Если нажать комбинацию клавиш 
Shift+Tab, команды будут восстановлены в обратном направлении. 

С помощью клавиши Tab можно осуществить ассоциативный поиск. 
Если, например, ввести выражение, которое начинается с символов (+, 
а затем нажать клавишу Tab, Visual LISP отыщет последнюю введенную 
команду, которая начинается с символов (+. Чтобы изменить направление 
поиска, следует нажать комбинацию клавиш Shift+Tab. 

Клавиша Esc (Escape — отменить) удаляет любой текст после подсказ- 
ки с консоли. Если нажать комбинацию клавиш Shift+Esc, можно будет 
отказаться от интерпретации текста, введенного с консоли в ответ на под- 
сказку и перейти к следующей подсказке. 

После нажатия правой кнолки мышки или комбинации клавиш 
Shift+F10 в любом месте окна консоли на экране появляются меню команд 
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Visual LISP и опции. Они могут быть использованы для того, например, 
чтобы скопировать и вставить текст в командную строку консоли, найти 
текст или инициализировать Visual LISP. 


1.5. Компилирование программ и выход 
из Visual LISP 


При запуске программы AutoLISP с консоли Visual LISP или npu загруз- 
ке программ из окна текстового редактора Visual LISP компилирует npo- 
грамму и выполняет ее. 

Visual LISP имеет два компилятора: компилятор с непосредственным 
выполнением для быстрого тестирования и отладки новой программы 
(он подобен интерпретатору AutoLISP) и компилятор, который разме- 
щает откомпилированные программы с тем же именем, что и исходные, 
но с расширением FAS. Такие программы могут быть запущены из Visual 
LISP и выполняются быстрее, чем сгенерированные компилятором с He- 
посредственным выполнением. Это позволяет создавать приложения, 
с которыми могут работать другие пользователи. Приложения могут 
быть автономные или сопровождаемые Visual LISP Run-Time Support 
System (ВТУ) (Система поддержки выполнения программ Visual LISP). 
Скомпилированные исполняемые файлы содержат только машинно-орн- 
ентированный код. Исходный текст зашифрован компилятором файла 
Visual LISP. 

Исполняемые файлы, сгенерированные компилятором, часто называют- 
ся «компилированными программами» или а5-файлами. 

Visual LISP обеспечивает различные способы запуска и использования 
компилятора файла. Для того чтобы скомпилировать одиночный файл 
LISP используется [5Р-компилирующая функция. 

Когда приложение состоит из набора файлов AutoLISP, загруженных 
одновременно, используйте интегрированные средства управления проск- 
том Visual LISP для компилирования ваших файлов. Организатор проек- 
та автоматически перетранслирует файлы, которые изменились, обеспечит 
поиск фрагментов программ даже в том случае, если вы не знаете, какой 
файл содержит их, и сможет оптимизировать использование Функций, 
а также локальных переменных в компилируемых файлах. 

Чтобы скомпилировать одиночный файл AutoLISP вызовите функцию 
(УЫ$Р-СОМРШЕ...) в ответ на подсказку с консоли Visual LISP: 

(УЫЗР-СОМРИЕЕ <'режим> <"имя компилируемого файла"> <[”имя 
скомпилированного выходного файла"]>) 
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<‘режим> определяет режим трансляции: 

ST — стандартный режим; 

LSM — режим, который оптимизирует, но не компонует; 

LSA — режим, который оптимизирует и связывает. 

Стандартный режим создает самый простой выходной файл и обычно 

применяется для программ, состоящих из единственного файла. 

Режим с оптимизацией повышает эффективность компилируемых фай- 

лов и применяется в сложных и болыших программах. 

К базисным функциям оптимизации относятся: 

e Link Function (Функция связи), которая вызывается, чтобы создать 
прямые ссылки к компилируемой функции в оттранслированной Mpo- 
грамме и защитить код против функционального переопределения во 
времени выполнения; 

* Drop Function (Функция уменьшения), которая делает оттранслиро- 
ванную программу более безопасной, уменьшает размер программы 
и сокращает время загрузки. 

Например, при компиляции программного файла PRIVET2W.LSP в Visual 

LISP на диске C в папке ALISP вы можете вызвать компилятор с консоли: 
_$ (VLISP-CCOMPILE '5Т "C:/ALISP/PRIVET2W.LSP ") 
Если вы опускаете расширение файла с исходной программой, Visual 
LISP добавляет расширение LSP. 

При определении пути в имени файла используйте символ наклонной 

черты вправо (/) или удваивайте наклонную черту влево (\\). 

Выходной (скомпилированный) файл по умолчанию имеет то же имя, 

что и исходный, но расширение FAS. После завершения компиляции NNO- 
явится сообщение компилятора в окне Build Output (Создание выходного 


файла) (рис. 1.35). 
Имя выходного файла можно изменять, например: 


(УРТЗЬ-СОМРШЕ 'ST "C:/PRIVETW.LSP " "С: /РЕТУЕТЕ.РАЗ ") 


В ходе трансляции по окончании каждой ее стадии компилятор печа- 
тает название функции и различные сообщения. Первая стадия трансля- 
ции — синтаксическая и лексическая проверка исходного текста. Если 
компилятор находит на этой стадии ошибки, он выдает сообщение и оста- 
навливает процесс трансляции. Когда компилятор встречает выражения, 
которые расцениваются как опасные, он выдает предупреждение. К опас- 
ным выражениям относятся, например, такие, которые переопределяют 
существующие функции AutoLISP или задают новые значения защищен- 


ным символам. 
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Рис. 1.35. Окно сообщений компилятора Build Output 


Если трансляция завершается успешно, как в нашем примере на 
рис. 1.35, в окне Build Output (Создание выходного файла) появляется Ha- 
звание скомпилированного выходного файла. 

Может случиться, что трансляция завершилась с ошибками. В такой си- 
туации исходный текст можно просмотреть и отредактировать. Для этого 
необходимо дважды нажать на сообщение об ошибке в окне Build Output. 

Чтобы загрузить и выполнить компилируемую программу, предстоит 
вначале загрузить ее, а затем запустить на выполнение. 

Для загрузки программы необходимо ввести функцию (LOAD...) после 
подсказки с консоли Visual LISP. 

_$ (LOAD "С:/РЕТУЕТМ.ЕА$ ") 

Если вы не укажете расширение файла FAS, Visual LISP не забудет cue- 
лать это сам. | 

Загрузить программу можно также, если выбрать пункт Load File (За- 
грузить файл) падающего меню File (Файл) главного меню Visual LISP 
На экране появится диалоговое окно Load lisp file (Загрузить lisp файлы). 
В поле Тип файлов (Files of type) обязательно выберите пункт Compiled 
AutoLISP Files (Скомпилированные файлы AutoLISP), иначе Visual LISP 
перечислит только LSP файлы. 

Запустить программу на выполнение можно так же, как и программу. 
загруженную из окна текстового редактора. Для этого необходимо ввести 
с консоли после подсказки: 

_$ (PRIVET2W) 

При разработке приложений, содержащих несколько файлов, необходи- 
мо использовать встроенную систему управления проектом Visual LISP 
для автоматической оптимизации кода. 
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Выход из среды Visual LISP можно осуществить двумя способами: 

e с помощью меню. Для этого мышкой выберите пункт Exit (Выход) na- 

дающего меню File (Файл) главного меню; 

e с помощью комбинации клавиш А+О. 

И в том и в другом случае на экране появится диалоговое окно Exiting 
Visual LISP... (Выход из Visual LISP) (см. рис. 1.14). На вопрос Really 
want to quit session? (Действительно ли вы хотите выйти из Visual LISP?) 
вы должны ответить Yes (Да) или № (Нет), то есть щелкнуть по соответ- 
ствующей кнопке. 

Если в тексте в любом окне редактора сделаны какие-либо изменения, 
и они не были сохранены, то во время закрытия файла появится диалого- 
вое окно с предложением сохранить изменения (рис. 1.36). 

B ответ на запрос Save changes to DOM (Сохранить изменения в файле 
под названием РОМ) необходимо щелкнуть по кнопке Yes (Да), No (Нет) 
нли Cancel (Отменить). 

Если при выходе из Visual LISP остаются программы, которые открыты 
в скнах текстового редактора, Visual LISP автоматически открывает их 
в начале нового сеанса работы. 


-mm 
i 


3 заме changes to DOM 


Рис. 1.36. Окно с запросом о сохранении изменений 
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В этои главе поясняются основные по- 
нятия и определения языка AutoLISP, 
рассказывается об этапах программи- 
рования, встроенных функциях языка, 
а также функциях, расширяющих воз- 
можности AutoLISP. Здесь же описыва- 
ется процесс разработки программ на 
языке AutoLISP в среде Visual LISP. 
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2.1. Основные понятия и определения 


AutoLISP — один из диалектов языка программирования высокого уровня 
COMMON LISP (1956). LISP был создан как язык функционального про- 
граммирования и относится к языкам декларативного типа. 

Представленная на схеме классификация несколько условна, посколь- 
ку почти каждый язык содержит те или иные элементы другого языка. 
Со временем языки взаимно дополняют и обогащают друг друга. 


Языки программирования 


Процедурные Декларативные 


(операторные) 


FORTRAN, PASCAL, C... Pone aTE NERE 


Логические Функциональные 
PROLog, KLO,... LISP, APL, LogO,.. 


Рис. 2.1. Классификация языков программирования 


Название языка LISP происходит от начальных букв двух слов LISting 
Processing (Обработка списков). 

Список — это упорядоченная, заключенная в круглые скобки последова- 
тельность, элементами которой могут быть: числовые константы (числа 
целые и вещественные); текстовые константы; логические (Т - истина, 
NIL — ложь); идентификаторы (имена переменной, функции, аргумента); 
список. Список будем записывать с апострофом перед открывающей круг- 
лой скобкой. Например: 

"(15 12,14 "Теахкстовая константа" '(АВС) РТ) 

Таким образом, список в общем виде — это многоуровневая, иерархичес- 
кая структура данных, в которой открывающие и закрывающие круглые 
скобки находятся в строгом соответствии. 

Список, в котором нет ни одного элемента, называется пустым и обозна- 
чается '() или именем NIL. Список в AutoLISP заключается в круглые 
скобки, а элементы списка разделяются пробелами. 

Выражение - это список, в котором первым элементом является имя 
функции. Любая функция AutoLISP состоит из выражений и сама явля- 


ется выражением. Выражение в AutoLISP имеет вид: 


м 
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(<имя функции> [<аргумент1>] [< аргумент2>] [<>]...) 

Квадратные скобки означают, что элемент может быть в списке, а может 
и не быть. 

Аргументы (параметры) — это средство передачи значений (данных) 
в функцию. Аргументами могут быть переменные, константы (числовые, 
текстовые, логические) или выражения. Число аргументов функции мо- 
жет быть переменным, фиксированным или нулевым. 

Переменные — это элементы языка AutoLISP, предназначенные для 
представления различных элементов языка AutoLISP и не имеющие no- 
стоянного значения. 

Константы — это элементы языка AutoLISP предназначенные для пред- 
ставления самих себя, имеющие постоянные значения. 

Константы языка AutoLISP могут быть трех видов: числовые (целые 
и вещественные); текстовые (строковые) и логические. 

Числовые константы — это любая последовательность цифр со знаком 
или без знака, отделяемая или неотделяемая точкой. Знак точки не дол- 
жен стоять в начале и в конце числа. 

Целые числа в AutoLISP представляются 32 двоичными разрядами со 3Ha- 
ком, и их значения могут находиться в пределах —2147483648... +2147483648. 
Однако между AutoLISP и AutoCAD передаются только 16-разрядные 
числа (то есть значения в пределах —32768... +32767). При использовании 
значений, выходящих за эти пределы, необходимо использовать функцию 
(ЕГОАТ...) для преобразования целого числа в вещественное. 

Вещественные числа в AutoLISP представляются как числа с плаваю- 
щей точкой с двойной точностью, при этом обеспечивается не менеее 14 
знаков точности. Вещественные числа передаются как значения с 32 дво- 
ичными разрядами. Числа между —1 и 1 должны явно содержать нулевую 
целую часть. Точно так же надо писать, например, 23.0, а не 23. 

Текстовые константы — это любая последовательность знаков и пробе- 
лов, взятых в кавычки. 

Логические константы — это T (True - истина), Nil - ложь. 

Символы (идентификаторы) - это имя (имена переменной, функции, ap- 
гумента), состоящее из прописных или строчных букв, цифр и знаков за 
исключением () — круглых скобок, . — точки, ' — апострофа, " — кавычек, ; — 
точки с запятой. Изначально у символов нет никакого значения. 

В интерпретаторе прописные и строчные буквы отождествляются 
и представляются прописными. | 

Форма представления программы и обрабатываемых данных в AutoLISP 
одна и та же — список. В зависимости от контекста запись вида (- 10 7) 
в AutoLISP может интерпретироваться двояко. 


Fad 
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Это может быть список, обеспечивающий вычисление. Первый элемент 
списка — имя Функции, два остальных — ее аргументы. В результате полу- 
чаем значение вычитания, равное 10 - 7, то есть 3. Но это может быть 
и список, состоящий из трех элементов (символов: —, 10 и 7). 

Списками удобно представлять алгебраические выражения, графы, гео- 
метрические объекты, правила вывода и многие другие сложные объекты. 
Кроме того, они хорошо компонуются в памяти современных ЭВМ. 

Единственный вид операций над данными в AutoLISP — это вычисле- 
ние функций. Перед вычислением все переменные, аргументы и вызовы 
функций заменяются на свои значения. Чтобы обойти обязательное вы- 
числение функций или блокировать их вычисление, используется функ- 
ция (QUOTE...) или ее эквивалент в виде апострофа '. Например, запись 


(QUOTE (* 5 6)) или '(* 56) 


даст одно и TO же значение (* 3 6) — список. 

Как можно заметить, операция умножения не выполняется. Чтобы 

снять блокировку, используется функция (ЕУА!Т....); например, запись 
(EVAL (QUOTE (* 5 6))) ИЛИ (EVAL '(*56)) 
даст одно и то же значение 30 — результат умножения чисел 5 H 6. 

Функция (EVAL...) обеспечивает снятие блокировки и выполняет ONE- 
рацию вычисления, например, функции умножения. Все эти функции — 
встроенные функции языка AutoLISP. 

Здесь функция (EVAL...) присутствует явно, однако при вычислении 
функций, не блокированных функцией (ОЧОТЕ...), нет ее явного при- 
сутствия, поэтому писать ее не надо. По существу, функция (ЕУА!....) — это 
интерпретатор языка AutoLISP (Evaluate — вычислить). 

Работа языка AutoLISP состоит в чтении входного выражения (списка), 
вычислении этого выражения с помощью функции EVAL (она присутству- 
ет, как правило, неявно) и выводе полученного результата — значения фун- 
кции. При этой схеме работы не происходит перевода программы в машин- 
ный код. Такой режим работы называется интерпретирующим, а ыы 
(EVAL...) — интерпретатором. 

Значением переменной B LISP может быть объект любого типа (число, 
символ, список, имя переменной, функции, ...) без предварительного его 
описания, что недопустимо в процедурных языках программирования. 

Современные 1.15Р-системы, включая AutoLISP обладают мощными 
средствами, необходимыми для эффективного решения численных задач. 
Известно, что одна из целей COMMON LISP заключалась в том, чтобы 
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стать гибкой и эффективной альтернативой Фортрану в области числен- 
ного научно-технического программирования. 

В языке AutoLISP свыше 200 встроенных функций, каждая из которых 
выполняет определенную операцию. LISP является языком прикладного 
и системного программирования высокого уровня одновременно. Машин- 
ный язык он напоминает тем, что и данные, и программы представлены 
в нем в одинаковой форме. 

В AutoLISP можно выделить три вида функций: встроенные в язык, 
разработанные и описанные пользователем, а также функции, разработан- 
ные и описанные другими пользователями. 

Для создания новых функций в AutoLISP имеется специальная функ- 
ция (DEFUN...}). При разработке функций в AutoLISP широко использу- 
ется мощный метод рекурсии, то есть при определении функции эта фун- 
кция может вызывать саму себя. 

Рассмотрим этот метод на примере вычисления показательной функции 
с целым положительным коэффициентом. 

Ноказательную функцию можно представить как функцию двух аргу- 
ментов: У(А, N) = A^. Эту же функцию можно представить и в другом виде: 

У(А, М) = А * У(А, N-1) =А*А\! = АХ. 

В языке AutoLISP эту функцию можно определить с помощью встроен- 
ной функции под именем DEFUN (DEfinition FUNction — определение 
фуикции) с использованием рекурсии: 

(DEFUN РОС (А М} ; определение показательной Функции 
(ТР (=№1) А 
(* A (РОСА (- N 1}))) 
) 

В результате выполнения функции (DEFUN...) появится имя РОС. Это 
означает, что создана и описана новая функция, которая может быть ис- 
пользована для вычислений. 

Например, запись (РОС 5 4) тут же даст результат вычисления: 625 — 
возведение числа 5 в четвертую степень. 

При создании пользовательской функции после имени функции 
DEFUN следует имя функции, которое задает сам пользователь (в нашем 
примере РОС), затем в круглых скобках через пробел указываются аргу- 
менты. Далее описывается алгоритм вычисления функции: если М = 1, то 
резульгат выполнения функции равен А, иначе произведению А на AN- p 
Здесь следует обратить особое внимание на форму записи функции при ее 
определении. Имя функции пишется в инфиксной форме (сначала имя 
функции, а затем в круглых скобках аргументы). При использовании фун- 
кции для вычислений она пишется в префиксной форме. Имя функции 
и аргументы заключены в круглые скобки. 
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Функция должна описываться до начала использования. Обращение 
к описанной функции может быть помещено в любом месте программы, 
оно может стоять даже на месте аргумента другой функции. 

При вызове функции интерпретатор обратится к описанию, произведет 
вычисление согласно описанию и тут же выдаст результат или будет ис- 
пользовать его для дальнейших вычислений. Обращение после описания 
нашей функции даст следующий результат: 


Для облегчения понимания описание функций на AutoLISP лучше де- 
лать с отступами, а также снабжать необходимыми комментариями, кото- 
рые записываются после ; (точки с запятой). 

(DEFUN POC (А М) ; показательная функция с положительным 
) ; показателем степени 
РОС А (- N 1})}) 


(POC 5 £) ; вызов функции после ее описания 


Функцию (DEFUN...) можно использовать для описания самых разно- 
образных функций, например, функции, которая будет брать производную 
от алгебраического выражения; искать и исправлять в тексте ошибки; ри- 
совать на экране многоступенчатый объект с заданными параметрами; чер- 
тить узел машины... 

В настоящее время созданы ЕЗР-системы и даже 115Р-машины, KOTO- 
рые содержат тысячи подобных функций, обеспечивающих эффективное 
решение многочисленных самых разнообразных задач, включая задачи 
искусственного интеллекта. 


2.2. Основные этапы 
программирования на AutoLISP 


AutoLISP хорошо сочетается с прикладной графикой, он очень прост 
в изучении и универсален в применении. Язык имеет много встроенных 
функций, отражающих специфику графического редактора AutoCAD. 

AutoLISP обеспечивает возможность формирования чертежа за считан- 
ные минуты. Чтобы получить чертеж, необходимо предварительно напи- 
сать программу для его создания. Для упрощения процесса нужно иметь 
соответствующий банк программ графических чертежей. 

Написание программы на AutoLISP требует выполнения ряда основ- 
ных действий: четкой формулировки — (постановки) задачи; выявления 
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основных особенностей, взаимосвязей и количественных закономернос- 
тей; формирование графического изображения объекта; разработки про- 
граммы (функций) на AutoLISP; реализации программы на JBM. 

Каждый из этих этапов рассмотрим подробнее. 

Постановка задачи. На этом этапе определяется: графический ИЕ 
(план офиса, коттедж, многоступенчатый объект и т. д.), который может 
формироваться программой при различной входной информации (напри- 
мер, число ступеней объекта, размеры каждой ступени, текстовые поясне- 
ния, необходимость указания размеров, местоположение объекта на чер- 
теже и т. д.). 

Выявление основных особенностей, взаимосвязей и количественных 
закономерностей. На этом этапе устанавливаются взаимосвязи отдель- 
ных элементов чертежа с точки зрения эффективного их построения, на- 
пример, взаимосвязь между смежными ступенями объекта: диаметр по- 
следующей ступени объекта может быть меньше или больше диаметра 
предыдущей и т. д. Одновременно определяются способы построения от- 
дельных элементов графического объекта и условия, которые влияют на 
выбор способа построения элемента. Проводится декомпозиция сложного 
графического объекта на ряд элементарных, описание которых может быть 
выполнено простыми встроенными функциями. Определяются постоян- 
ные и переменные параметры, текстовые вставки, формируются запросы 
и сообщения, программно выдаваемые конструктору и т.д. 

Разработка последовательности действий создания графического 
изображения объекта. На этом этапе подробно излагаются все действия, 
связанные с построением графического изображения объекта, возможно 
использование циклических процедур. Указывается, какая входная ин- 
формация необходима, как она используется для формирования изобра- 
жения того или иного элемента объекта. 

Разработка программы (функций) AutoLISP. В языке функциональ- 
ного программирования каждое действие, каждая операция описываются 
некоторой функцией или комбинацией функций, встроенных или постро- 
енных пользователями. Каждая функция имеет свое оригинальное имя, 
она может иметь один или несколько аргументов либо не иметь их. Аргу- 
менты функции могут быть тоже функциями. 

В AutoLISP используется несколько необычная форма записи функ- 
ции — префиксная. Все функции, встроенные и разработанные пользова- 
телями, имеют префиксную форму записи. 

Префиксная форма записи функции - это такой вид записи, в которой 

имя функции вместе с аргументами функции заключаются в круглые скоб- 
ки. Наиболее привычной является инфиксная форма записи функции. 


54 Основы программирования 


Инфиксная форма записи функции - это такой BHA записи, при которой 
сначала пишется имя функции, а в скобках указываются ее аргументы. 
Ниже в общем виде приведены разные формы записи: 


F (X1,X2,..) - инфиксная форма записи функции; 
(F X1 X2...) - поефиксная форма записи функции, 


где F - имя функции; 

Х1,Х2 - аргументы функции. 

В качестве аргумента функции в AutoLISP может быть функция, nme- 
ременная, константа и т. д. Имя функции может состоять из одного или 
нескольких символов. Например, запись (+ 5 4) означает, что функция 
имеет имя +( сложение) и два аргумента: числа 5 и 4. В резульгате вы- 
полнения функции получим число 9. Функция вычитания имеет имя —; 
функции деления — /, умножения - *; возведение в степень — EXPT; 
определение модуля числа — ABS; синус — SIN; косинус — COS; арктан- 
генс — ATAN; квадратный корень — SORT; экспонента — EXP; натураль- 
ный логарифм — ГОС. 

Выполнение программы на AutoLISP. Рассмотрим основные способы 
выполнения программы на AutoLISP: | 

* ввод программы с клавиатуры в командной строке системы AutoCAD. 

В ответ на приглашение Command: можно вводить функции AutoLISP. 
После ввода функции в командной строке нажмите клавишу Enter 
(Ввод) для выполнения функций и просмотра результатов. Например: 

Comnand: (+ (* 567) (COS 0.5)) ‚ нажмите клавишу Enter 

210.878 

Command: (COMMAND "LINE" "5,10" "30,40" "" "ZOOM" "ALL" "") 
На графическом поле рабочего стола AutoCAD появится изображение 
линии, проведенной из точки с координатами (5, 10) в точку с коорди- 
натами (30,40). Этот способ не предусматривает сохранения введен- 
ных выражений; 

e ввод программы, оформленной как описание функции с клавиатуры, 

в командной строке системы AutoCAD. Если программа оформлена как 
одно или несколько описаний функций, то есть начинается с имени 
DEFUN, то к этой функции можно обращаться в любой момент до за- 
вершения текущего сеанса работы с AutoCAD, после чего программа 
должна быть набрана снова. Например, определим функцию, которая 
будет вычислять тангенс угла: — 

Command: (DEFUN ТТАМС (Х} (ТР (AND (/=Х (*РТО.5)} 

(/=Х (* РГ 1.5))) (/ (SIN X} (COS Х) )_"Бесконечность"}} 


ТТАМС 
Command: (ТТАМС 0.5) 
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0.546302 

Command: ({ТТАМС {* РТ 1.5)) 

"Бесконечность" 
Если синтаксис при определении функции не нарушен, то после на- 
жатия клавиши Enter на следующей строчке появится имя новой 
определенной функции, которой можно пользоваться для расчетов; 

e запись программы в файле и ее вызов в командной строке системы 
AutoCAD. Программа создается с помощью любого редактора текстов 
и сохраняется в файле с расширением LSP например, DOM.LSP. 

Для выполнения программы ее необходимо загрузить, используя функ- 

цию AutoLISP (ТОАО...). Например: 


Command: {LOAD "С: /АБТЗР/ШРОМ" } 


Имя файла при этом задается в текстовом виде без расширения с указа- 
нием пути. Если загрузка завершена успешно, функция (LOAD...) возвра- 
щает имя последней функции, определенной в файле, если нет — имя фай- 
ла (LOAD "<имя файла>"); 

* 6600 программы, оформленной как описание функции с начальными CUM- 
волами С: с клавиатуры в командной строке системы AutoCAD. Если 
программа может быть оформлена как описание функции без аргумен- 
тов, то есть начинается с имени DEFUN, а собственное имя функции 
имеет начальные символы С:, то к этой функции можно обращаться 
без круглых скобок в любой момент до завершения текущего сеанса 
работы с AutoCAD, после чего программа должна быть набрана снова; 

* автоматическая загрузка программы. Если программа оформлена как 
описание функции без аргументов, т.е. начинается с имени DEFUN, 
а собственное имя функции имеет начальные символы С: и она загру- 
жена в файл ACAD.LSP, то такой файл автоматически загружается при 
запуске AutoCAD. Файл ACAD.LSP обычно содержит наиболее часто 
используемые функции. Такие функции вызываются на выполнение 
как команды AutoCAD без круглых скобок; 

° 6600 программы из окна текстового редактора Visual LISP. Когда npo- 
грамма находится в активном окне текстового редактора, щелкните по 
кнопке Load activate edit window (Загрузка активизированного окна 
редактирования) или выберите пункт Load Text in Editor (Загрузить 
текст из окна редактирования) из падающего меню Tools (Инструмен- 
ты) главного меню Visual LISP. Как только на экране появится сооб- 
щение о загрузке программы в окне консоли Visual LISP, произведите 
обращение к функции и для ее выполнения нажмите клавишу Enter: 

* 6600 программы из окна консоли Visual LISP. После введения програм- 
мы в окне консоли нажмите клавишу Enter (Ввод) для ее выполнения. 


56 Основы программирования 


Программа на AutoLISP может обрабатывать данные из файлов, KOTO- 
рые необходимо предварительно открыть с помощью функции (ОРЕМ...). 
После работы все открытые файлы необходимо обязательно закрыть, ис- 
пользуя функцию (СГ.ОЗЕ...). 

Функция (ОРЕМ...) часто используется в сочетании с функцией 
(ЗЕТО...), что упрощает операцию ввода-вывода. Например, следующая 
запись: 


(SETQ F1 (OPEN "С: /КОБВ/УАЬ.РАТ" "r" )) 
означает, что на диске C: в каталоге KUDR производится поиск файла 


с именем УАГ.ОАТ, который открывается для чтения "г" (read — чтение). 
Использование функции (SETQ...) упрощает операцию закрытия откры- 


того файла, которая при этом выглядит следующим образом: 

(CLOSE F1) 

Кроме символа "г" (чтение), можно использовать символ "W" (write — 3a- 
пись), который означает, что файл данных открывается для записи. Если 
файл стаким именем уже существует, данные будут перезаписаны. Исполь- 
зование символа "а" (add — добавить) означает открытие файла данных для 
пополнения его новыми сведениями. Если такого файла нет, он создается. 

Следует обратить особое внимание на необычную запись местонахож- 
дения файла. В ней используется символ / (прямая косая черта) вместо 
символа \ (обратной косой черты), если следовать правилам операцион- 
ной системы MS DOS. Это вызвано тем, что символ \ в AutoLISP исполь- 
зуется для ввода управляющих символов: \п — перевод строки; \г — воз- 
врат каретки; \ — табуляция. В то же время можно использовать 
и обратную косую черту \, но в следующей записи: \\. И тогда открытие 
файла можно записать так: 

(SETQ F1 (OPEN "C:\\KUDR\\VAL. DAT" "г" )) 

Для вывода на экран значения, на которое ссылается символ, необходи- 
мо набрать восклицательный знак и символ: ! <символ>. 

Ввод в командной строке AutoCAD круглой открывающей скобки (03- 
начает подключение интерпретатора AutoLISP для обработки вводимого 
выражения. Количество круглых открывающих скобок в выражении, за- 
писанном на языке AutoLISP, должно точно соответствовать числу круг- 
лых закрывающих скобок. 

Последняя парная закрывающая скобка означает конец ввода выраже- 
ния на языке AutoLISP и переход интерпретатора AutoLISP в режим Bhl- 
числения (обработки) выражения. Если введенное выражение полностью 
соответствует синтаксису языка AutoLISP, то ниже появляется результат 


ВЫЧИСЛ ения : 
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Допустим, необходимо произвести сложение числа 5.34 с вещественным 
числом, которое вводится с клавиатуры. Это выражение можно записать 
в командной строке следующим образом: 

(+ 5.34 (СЕТВЕАЬ "ВВЕДИТЕ ЧИСЛО М = ")} 
После нажатия клавиши Enter (Ввод) на экране появится предложение 
в виде: | 
ВВЕДИТЕ ЧИСЛО N = | 
Введем, например, число 15.06. 
На следующей строчке будет показан результат вычисления: 


20.4 
Предположим, в выражение вкралась ошибка: пропущены вторые двой- 


ные кавычки в строковой константе в подсказке. Выражение будет выгля- 
деть так: 
(+ 5.34 (СЕТВЕАЬ "ВВЕДИТЕ ЧИСЛО М = )) 
В этом случае после ввода выражения появится сообщение: 
2> 
Такое состояние позволяет продолжить ввод выражения AutoLISP. 
Данное сообщение связано с тем, что все символы после первой откры- 
вающей кавычки воспринимаются как строка символов. Чтобы про- 
должить вычисления, необходимо в строке, где появилось сообщение 2>, 
закрыть строковую константу второй двойной кавычкой и ввести две за- 
крывающие скобки. 
Строка будет выглядеть следующим образом: 
2> ")) | 
После нажатия клавиши Enter появится запрос: 
ВВЕДИТЕ ЧИСЛО М = )) 
Необходимо ввести число, например, 15.06. 


ВВЕДИТЕ ЧИСЛО М = )) 15.06 
20.4 


Отказаться от неверно набранного выражения можно, если нажать KOM- 
бинацию клавиш Ctrl+C и правильно набрать выражение. 
Допустим, в выраженни, приведенном выше, сделана ошибка — npony- 
щена вторая закрывающая скобка: 
(+ 5,34 (СЕТВЕАЬ "ВВЕДИТЕ ЧИСЛО N = "} 
В этом случае после ввода выражения появится сообщение: 
1> 
Это означает, что в выражении пропущена одна закрывающая скобка. 
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Чтобы продолжить вычисления, необходимо в строке, где появилось 
сообщение 1>, ввести одну закрывающую скобку. Строка будет выгля- 
деть так: 

l> ) 
После нажатия клавиши Enter появится запрос: 
ВВЕДИТЕ ЧИСЛО N = 


Введем, например, число 15.06: 


Отказаться от неверно набранного выражения также можно, если на- 
жать комбинацию клавиш СЫ1+С и правильно набрать выражение. 

Самое трудное в AutoLISP — отслеживать соответствие открывающих 
и закрывающих круглых скобок и кавычек для строковых констант. Что- 
бы облегчить этот процесс при написании программ на AutoLISP, целесо- 
образно использовать текстовые редакторы, которые могут следить за тем, 
чтобы количество открывающих скобок соответствовало количеству за- 
крывающих. Такими возможностями обладает, например, текстовый ре- 
дактор NORTON Editor фирмы SYMANTEC. Но лучше всего использо- 
вать современную интегрированную среду Visual LISP для системы 
AutoCAD 14-й версии. 


2.3. Встроенные функции языка AutoLISP 


По назначению все встроенные функции языка AutoLISP условно можно 
разделить на следующие: 

° ввода данных различного типа; 

* манипулирования с данными; 

e работы с числовыми данными; 

° управления процессом вычисления (выполнения) функций; 

° проверки выполнения условий; 

° вывода данных различного типа; 

e доступа к примитивам и средствам AutoCAD; 

e особые. | 

Пользователь может переопределять или модифицировать функции, 
расширять и создавать свои собственные. 

Ниже мы рассмотрим синтаксис основных встроенных функций языка 
AutoLISP, которые могут быть использованы в процессе разработки 


пользователем собственных функций. 
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2.3.1. Функции для ввода данных различного типа 


(PROMPT <"Поясняющее сообщение ">) — ввод сообщения; 

(PROMPT "ВВЕДИТЕ ОСНОВНЫЕ ДАННЫЕ ЗАДАЧИ ") 

ВВЕДИТЕ ОСНОВНЫЕ ДАННЫЕ ЗАДАЧИ 

(GETINT <"Поясняющее сообщение ">) - ввод целого числа; 

(GETINT "\п ВВЕДИТЕ ЧИСЛО ЭТАПОВ РЕШЕНИЯ ") 

ВВЕДИТЕ ЧИСЛО ЭТАПОВ РЕШЕНИЯ 3 ; ввод целого числа 

(СЕТКЕАТ, <"Поясняющее сообщение ">) — ввод действительного числа; 


(СЕТВЕАЬ "\п ПРОДОЛЖИТЕЛЬНОСТЬ ОПЕРАЦИИ ") | 
ПРОДОЛЖИТЕЛЬНОСТЬ. ОПЕРАЦИИ 15.5 ; ввод действительного числа 
(GETSTRING [<СК>][<"Поясняющее сообщение ">]) — ожидание BBO- 
да строки с пробелами, если есть <СК>, иначе ввод строки до 1-го пробела; 
(СЕТЗТЕТМС "\п ВВЕДИТЕ ФАМИЛИЮ: ") ; вызов функции 
ВВЕДИТЕ ФАМИЛИЮ: КУДРЯВЦЕВ ; ввод фамилии на запрос 
(GETDIST [<11>[<"Поясняющее сообщение ">]) — ожидание ввода 
точки T2, если есть T1, тогда расстояние К = T2 - T1, иначе вводится pac- 
стояние К - действительное или целое число; 
(СЕТОТЗТ ' (1.0 1.0) "\п ВВЕДИТЕ ВТОРУЮ ТОЧКУ ") 
ВВЕДИТЕ ВТОРУЮ ТОЧКУ 7,7 ; ввод координат второй точки 
8.48528 ; результат - расстояние от 
; точки (1,1) до (7,7) 
Точки задаются списком из двух координат по Х и У, например, точке 
T1 может соответствовать список '(10.0 15.0); 
(СЕТАМСТЕ [<Т1>]|[<"Поясняющее сообщение ">]) — ожидание BBO- 
да точки T2, если есть T1, тогда угол равен углу между отрезком [T1 T2] 
и осью Х, иначе вводится значение угла в радианах; 


(СЕТАМСЬЕ ' (1.0 1.0} "\п УГОЛ НАКЛОНА ЛИНИИ "} ; вызов 


УГОЛ НАКЛОНА ЛИНИИ 5, 3 ; ввод координат 
; второй точки 
0.463648 | ; результат - угол 


‚ наклона линии 


(СЕТРОГМТ [<Т1>]|[<"Поясняющее сообщение ">]) —- ожидание ввода 
списка значений координат X и У точки, если нет Т1, иначе рисует «рези- 
новую» линию от Т1 до положения курсора; 


(СЕТРОТМТ "ВВЕДИТЕ БАЗОВУЮ ТОЧКУ ВТ ") ; вызов функции 
ВВЕДИТЕ БАЗОВУЮ ТОЧКУ ВТ 6,9 ; ввод точки на запрос 


(СЕТСОКМЕК <Т1>[<"Поясняющее сообщение ">]) — изображение 
«резинового» прямоугольника от точки Т1 до расположения курсора; 
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(GETKWORD [<"Поясняющее сообщение ">]) — ожидание ввода клю- 
чевого слова, описанного функцией (ПШТОСЕТ...); 
(INITGET [<Сумма чисел>][<"ключевые слова...">]) — установка режи- 
ма ввода данных. Сумма чисел реализует несколько режимов. 
Числа: 
1 — запрещен пустой ввод; 
2 — запрещен ввод нуля; 
4 — запрещен ввод отрицательных чисел; 
© — пределы координат не контролируются; 
16 — ввод трехмерных точек; 
32 — используется пунктир для изображения 
«резиновых» линии или прямоугольника; 
64 — игнорируется координата Z трехмерной точки 
(только в GETDIST AutoCAD 11-й и 12-й версий); 
128 — возвращает произвольный код с клавиатуры; 
ключевые слова — определение списка ключевых слов через пробел; 
(INITGET 1 “ДА НЕТ") ; вызов функции 
(CETXWORD "ИЗМЕНИТЬ РЕЖИМ РАБОТЫ ? (ДА НЕТ) ") 
ИЗМЕНИТЬ РЕЖИМ РАБОТЫ ? (ДА НЕТ) ДА ; ввод ключа 


(READ-LINE) — ожидание ввода строки с клавиатуры; 
(ВЕАОЗЬТМЕ) ; вызов функции 
ВНИМАТЕЛЬНО РАССТАВЛЯЙТЕ СКОБКИ ; ввод текста с клавиатуры 
(ВЕАО-СНАК) -— ожидание ввода символа с клавиатуры для преобра- 
зования его в числовой код ASCII; 


(ВЕАР-СНАК) ; вызов функции 
А ; ввод символа 
55 ; результат выполнения - код ASCII. 


(READ-LINE <Е1>) — ввВОД записи из файла <Е1>; 
(РЕАБ-ЬТМЕ (OPEN "С:\АСМ\\СМ1.ТХТ" "г")) 
(КЕАО-СНАК <Е1>) - ввод символа из записи файла <Е1>. 


Файл <Е1> предварительно должен быть открыт. Это делается следую- 
щим образом: 


(SETQ F1 (OPEN "С: \\КОБВ\\ЕТЬЕ.РАТ" "r")) 

Первая запись в кавычках — местоположение файла в каталоге, вторая — 
режим чтения (read). Кроме этого, могут быть режимы "w" (write — 
записи),"а” (add — добавления). 

После открытия файла и использования его необходимо закрыть: 


(CLOSE F1) ; закрытие файла <F1> 
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2.3.2. Функции для манипулирования с данными 


(ЗЕТО <переменная> <выражение>) — присвоение переменной значе- 
ния выражения (атом, список, Функция, ...); 


(SETQ А 10 ; присвоение переменной А значения 10 
В "ABS" ; присвоение В текстовой константы "ABS" 
С (CoS 0.6)} — ; присвоение С значения (COS 0.6)) 

Или 


(SETQ А 10 В "ABS" С (COS 0.6)}; вызов функции 
(SET <‘символ> <выражение>) — присвоение символу с апострофом 
значения выражения (атом, список, функция, ...); 


(SET 'А 10} ; присваивает символу 'А значение 10 
10 ; результат 


(CAR <список>) — возвращение первого элемента списка; 


(CAR '(ВСРЕЕ} } ; вызов функции 
В ; результат - первый элемент списка 


(CDR <список>) — возвращение списка без первого элемента; 


(CDR '(BCDEF)}) ; вызов функции | 
(C DEF) ; результат - список без первого элемента 
(СААВ <список>) — эквивалентно (CAR (CAR <список>)); 

(СРАЁК <список>) — эквивалентно (CDR (CAR <список>)); 

(CADR <список>) — эквивалентно (CAR (СОК <список>)); 

(СООК <список>) — эквивалентно (СОК (СОК <список>)); 
(CADAR <список>) — эквивалентно (CAR (СОК (CAR <список>))); 
(САРОК <список>) -— эквивалентно (CAR (СОК (CDR <список>))) 
и т. д. вплоть до четырех уровней вложенности; 


(LAST <список>) — возвращение последнего элемента списка: 


(LAST '(ВСВЕЕ}) ; вызов Функции 
Е | ; результат - последний элемент списка 
(LIST <элемент> <элемент>...) — создание списка из элементов; 
(LIST 'A 'B 'C 'D 'Е) ; вызов функции 
(ABCDE) ; результат - список элементов 
(APPEND <список>...) — соединение нескольких списков в один; 
(APPEND ' (АВ) '(CDE))} ; вызов функции 
(ABCDE) ; результат - один общий список 
(REVERSE <список>) — изменение порядка элементов на обратный; 
(REVERSE '(АВСРЕЕ)} } ; вызов Функции 


(FEDCBA) ; результат выполнения 
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(ASSOC <ключ> <список>) — поиск элемента в списке по ключу; 


(SETQ LA (LIST '(1 A) '(2 B) '(3 C)))  ; вызов функции 
(ASSOC 2 LA) ; вызов ФУНКЦИИ 
(2 B) ; подсписок с заданным ключом 


(SUBST <новый элемент> <старый элемент> <список>) — замена 
в списке старого элемента на новый; 


(SETO LB '(АВСОЕ)) ; вызов функции 

(SUBST '2 'B LB) ; вызов Функции 

(a zZzCDE) . список с замененным элементом 
(MEMBER <элемент N> <список>) — выделение списка с элемента М; 
(MEMBER 'D '({ABCDEF)) ; вызов функции 

(DEF) ; результат выполнения 


(NTH <число N> <список>) — выделение (М +1)-го элемента списка, 
так как счет элементов в списке начинается с М = 0; 


(NTE 3 '(åĄ BC D)) ; вызов функции 
D ; выделен 4-й элемент списка 


(ЕТХ <действ. число>) — преобразование действительного числа в целое; 


(FIX 5.4) ; вызов Функции 

5 ; результат выполнения - целое число 
(ЕТОАТ <целое число>) — преобразование целого числа в действительное; 
(FLOAT 5) ; вызов функции 

5.0 ; результат выполнения - 


; действительное число 
(АМСТО$ <угол в радианах> [<представление>]|[<точность> |) — npe- 
образование угла в радианах в текстовую строку; 


(ZNCTOS 0.685) ; вызов функции 
"39.248" ; угол в градусах как текстовая 
; константа 


(СНВ <число>) — преобразование числа в символьный код ASCHI; 


(СЕВ 77) ; вызов функции 
"М" ; результат - символьный код ASCII числа 77 


(ASCII <"символ">) — значение символа в числовом коде ASCII; 


(ASCII "С"} ; вызов функции 
71 ; результат - числовой код АЗСТТ символа С 


(АТОЕ <"число">) — преобразование числовой текстовой константы 
в действительное число; 


(АТОЕ_“55.2") ; ВЫЗОВ функции 
55.20000 ; результат выполнения 
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(ATOI <"число">) — преобразование числовой текстовой константы 
в целое число; | 


(АТОТ "34") ; вызов функции 
34 ; результат выполнения 


(ТТОА <целое число>) — преобразование целого числа в числовую тек- 
стовую константу; 


(ТТОА 19) ; вызов функции 
"19" _; результат выполнения 


(RTOS <действительное число>)[<режим>][<точность>]) — преобра- 
зование действительного числа в текстовую константу. 


(RTOS 34.5 14) преобразует 34,5 в "3.4500Е+01" - научный режим 
(RTOS 34.5 2 4) преобразует 34,5 в "34.5000" - десятичный режим 
(RTOS 34.5 34) преобразует 34,5 в "2'-10.5000""  - технический режим 
(RTOS 34.5 4 4) преобразует 34,5 в "2'-10 1/2"" - архитектурный режим 
(RTOS 34.5 5 4} преобразует 34,5 в "34 1/2"" - дробный режим 
(STRLEN <"строка”">) — определение числа символов в строке; 
(STRLEN "АцбортоР") ; вызов Функции 

8 ; результат - число символов в строке 
(ЭТВСАТ <"строка 1"> <"строка 2">...) — соединение строк; 

‚ (STRCAT "Auto" "CAD") ; вызов функции 

"AutoCAD" ; результат соединения строк 


(SUBSTR <"строка"> <начало> [<длина>]) — выделение части строки 
подстроки (начало — номер символа, длина — число символов); 


(SUBSTR "AutoCAD" 5) ; вызов функции 

"CAD" ; результат - выделена часть текста 
(LENGTH <список>) — определение длины списка; 

(LENGTH '(ABCDEF)) ; вызов функции 

6 ; результат - число элементов 


2.3.3. Функции для работы с числовыми данными 
и выражениями 
(+ <N1> <М№2> <МЗ>...) - сложение чисел М1, N2, N3, ...; 


(+ 12.3 45 3.6 1} ; вызов функции 

61.9 ; результат сложения нескольких чисел 
(- <N1> <М2> <М№З>...) - вычитание из числа N1 чисел №2, N3, ...: 
(- 50.5 45.1 3 2.3) ; вызов Функции 


0.1 ‚ результат вычитания нескольких чисел 
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(* <N1> <N2> <МЗ>...) — перемножение чисел N1, №2, N3, ...; 


(* 3.3452) ; вызов функции 
132.0 ; результат умножения нескольких чисел 
(/ <М1> <М2> <N3>...) — деление числа М1 на N2, N3, ...; 
(1/70 5.5 2) ; вызов функции 
6.36364 ; результат деления 
(ABS <N1>) — определение абсолютного значения числа М1; 
(ABS -55.4} ; вызов функции 
53.4 ; результат определения абсолютного числа 


(1+ <N1>) — добавление к числу М1 единицы; 


(1+ 15) ; вызов Функции 
16 ; результат выполнения 


(1- <М1>) - вычитание из числа М1 единицы; 


(1-43) ; вызов функции 
42 ; результат выполнения 


(SIN <угол в радианах>) — вычисление синуса угла в радианах; 


(SIN 0.54) ; вызов функции 
0.512136 ; результат вычисления синуса 


(СО$ <угол в радианах>) — вычисление косинуса угла в радианах; 


(COS 1.2) ; вызов функции 

0.169967 ; результат вычисления косинуса 
(ATAN <М№>) — определение угла в радианах (арктангенс); 
(АТАМ 45) ; вызов функции 

1.52858 ; результат вычисления арктангенса 


(ЕХР <М>) — определение величины экспоненты; 


(EZ? 2) ; вызов Функции 
7.33906 ; результат вычисления экспоненты 


(EXPT <М1> <М№2>) — определение показательной функции; 


(EXPT 6.52.3) ; вызов Функции 
74.08 ; результат вычисления 
(ТОС <М>) - определение величины натурального логарифма; 
(ТОС 68.7) ; вызов Функции 
4.22975 ; результат вычисления 


- (МАХ <N1> <N2>...) - поиск максимального числа из всех; 


(МАХ 395.5 4.5) | ; вызов функции 
9.0 ; результат - максимальное число из всех 
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(МТМ <N1> <М2>...) — поиск минимального числа из всех; 


(MIN 5 4.1 2.2 7) ‚ вызов функции 
2.2 ; результат - минимальное число из всех 
(REM <М1> <№2>) — определение остатка от деления М1 на №2; 
(ВЕМ 54 10) ; вызов Функции 
4 ; результат - остаток от деления 
(GCD <N1> <М2>) - определение наибольшего общего делителя; 
(GCD 12 27) ; вызов функции 
3 ; результат - наибольший общий делитель 


(ANGLE <Т1> <Т2>) - определение угла в радианах между прямой, 
проходящей через T1 u T2, и осью X; 


(ANGLE '(2.03.0} '(8.09.0)) 


0.785398 ; результат вычисления - угол в радианах 
(DISTANCE <Т1> <Т2>) - расстояние между точками Ti и T2; 
(DISTANCE ' (8.03.0) '(2.06.0)) ; вызов функции 

6.7082 ; результат - расстояние между 


; точками T1 и T2 
(INTERS <Т1> <Т2> <T3> <Т4> [<ОМ>]) - определение точки nepe- 
сечения двух отрезков, проходящих соответственно через точки T1, T2 
и T3, T4. Если <ОМ> нет, то точка пересечения должна быть в пределах 
обоих отрезков, иначе отрезки воспринимаются как бесконечные прямые; 
(INTERS '(11} '(55) '(15) '{(51)) ; вызов функции | 
(3.0 3.0) ; результат - точка 
‚ пересечения отрезков 
(POLAR <T1> <U> <R>) - определение точки T2 путем перемещения 
из точки <Т1> под углом <U> в радианах на расстояние <В>; 
(POLAR ' (11) (/ РТА) 4) ; вызов функции 
(3.82843 3.82843) ; результат - координаты точки 


2.3.4. Функции управления процессом вычисления 
(выполнения) функций 


(COND (<Ссловие 1)> <(функция 1,1)> [(функция 1,2)]...) 


ООО ТОЧООУ ООО ООО ОО ВОВЕ ОО БОВ ООО Н ООО О ТОО ООО 0 9 06 ООО оо ооо о оо офор о ооо ооо ровен осо фо ров ооо ооо ваваноеао 


(<(Сусловие М№)> <(функция N,1)> [(функция №,2)]...)) — вы- 
числение тех функций, для которых выполняются условия; 
Проверка проводится для всех условий. 


(SETO I 5g 9) ; присваивание значений переменным I m J 
(COND ((= IJ} (МАХ 5 10 3)) ; определение максимального числа 


3 — 1278 
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((< I J) (MIN 5 6 20)); определение минимального числа 
((> IJ) (*57789))); определение произведения чисел 
5 ; результат выполнения (вычисления) 


(ТЕ (<Ссловие 1)> <(функция 1)> [(функция 2)]|) - если (условие 1) 
выполняется, то вычисляется (функция 1), иначе (функция 2); 


F (= ГО) (МАХ 5 103) ; определение максимального числа 
(MIN 5 6 20) } ; определение минимального числа 
; результат выполнения (вычисления) 
(REPEAT <целое число> <выражение>...) — вычисление выражений 
заданное число раз; | 
(SEIO D 5) 
(3ER ; формирует цикл 
SETQ D (* D 2})) ; присваиваются D результаты расчета 
; результат расчета 


(РКОСМ <выражение>...) — вычисление нескольких выражений там, 
где допускается вычисление только одного; 
Е (< C D) {FROGN ЕТО C {F C21) 
(ezm D (*05)})) 
(APPLY <‘имя функции> <‘(список аргументов)>) — применение 34- 
данной функции к списку аргументов; 
L? ОЕ и ; вызов функции 
3 ; результат сложения элементов списка 
(MAPCAR <‘имя функции> <’(список аргументов)>...) — выполнение 
заданной функции над первыми элементами списков, затем вторыми ит. д.; 
(МЕРСАР '* '(5 103) '(6 78) '(1.535)) ; вызов функции 
(25.0 219 120) ; результат вычисления 


. У 


(FOREACH <переменная> <список> <(функция 1)> <(функция 2)>...) 
присваивание переменной значения первого элемента списка и вычисле- 


ние функции, затем второго и т. д.; 
(FOREZ T пы 


(PRINT (COS N)}))) ; вычисление COS для каждого 
9 a ; элемента списка и печать 
0.520302 ; результатов расчета 
0.970737 


(WHILE <(условие)> <(функция 1)> <(функция 2)>...) — вычисление 
в цикле функций до тех пор, пока выполняется условие; 
(ЗЕТО М1) l ; определение начального значения N 
(WHILE (< N 4} ; условие вычисления в цикле 
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(PRINT (SIN (* 0.2 N))) ° ; вычисление SIN, печать результата 
(SETO N (+N 1}))) ; определение нового значения N 
0.198669 ; результаты расчета 
0.389418 
0.564642 


2.3.5. Функции проверки выполнения условий 
(AND <выражение>....) — T (TRUE), если нет NIL, иначе NIL; 


(AND 10 15.5 "АВС" ) ; вызов Функции 
Т ; результат выполнения 
(ОВ <выражение>...) — T, если хотя бы одно T, иначе NIL; 
(ОВ NILL "САБ" 15) ; вызов функции 
T ; результат выполнения 
(МОТ <выражение>...) — T, если имеется NIL, иначе NIL; 
(SETQ А 15.8) 
(МОТ А) ; ВЫЗОВ ФУНКЦИИ 
NILL ; результат выполнения 
(BOUNDP <атом>) - T, если <атом> имеет значение, иначе NIL; 
(SETQ В 12.3) 
(BOUNDP 'B) ; вызов функции 
T ; результат выполнения 
(МОМВЕКБР <элемент>) - T, если <элемент> число, иначе NIL: 
(МОМВЕКР 183.2) ; вызов Функции 
Т ; результат выполнения 
(МИМОБЗР <число>) - T, если <число> отрицательное, иначе NIL: 
(MINUSP 9.25} ; вызов функции 
МИЛ. ; результат выполнения 


(EQUAL <выражение!1> <выражение2> [<допуск>]) - T, если оба 
выражения равны между собой, иначе МП; 


(EQUAL "АТОМ1" "АТОМ!" } ; вызов функции 
T ; результат выполнения 
(LISTP <элемент>) - T, если <элемент> список, иначе NIL: 
(LISTP '(РЕЕ) } ; вызов функции 
Т ; результат выполнения 


(АТОМ <элемент>) - T, если <элемент> атом, иначе МП: 
(SETQ C '(A B D)) 


(ATOM C) ; вызов функции 
NILL ; результат выполнения 


3* 
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(ЕО <выражение!> <выражение2>) — T, если идентичны, иначе NIL; 
(SETQ El '(X Y Z) E2 '(XYZ2)) | 
; вызов функции 
Ъ ; результат выполнения 
(/= <атом1> <атом2>...) — T, если <атом1> не равен остальным атомам, 
иначе NIL; 


еж, — m  — 5 


(/= 17.55 7.14) ; вызов функции 
T ; результат выполнения 


(< <атом1> <атом?2>...) — T, если <атом1> меньше всех последующих, 
иначе NIL: 
(< "At 0”) ; вызов функции 
T ; результат выполнения 


(<= <атом1> <атом2>...) — T, если <атом1> меньше или равен всем NO- 


следующим. иначе NIL; 
(= <атом1> <атом2>...) — T, если <атом1> равен всем остальным ато- 


мам, иначе NIL. 


2.3.6. Функции для вывода данных различного типа 
(WRITE-CHAR <целое число>) — печатание символа ASCII кода; 


ZAR 57) ; после ввода появляется эхо команцы, 
5: ; а на экран выводится латинская буква С 
(WRITE-LINE <текст>) — печатание текста без кавычек; 
(РВГУ1 <выражение>) - печатание и возвращение значения <выраже- 
ния>; если <выражение> - текст, то в кавычках; 
N1 * EELLOW *) " HELLOW " 
(PRINC <выражение>) — печатание и возвращение значения <выраже- 
ния>: если это текст, то без кавычек; 
(PRINT <выражение>) — печатание с новой строки с последующим 
пробелом и возвращение значения выражения, текст без кавычек; 
(PRINT "НЕМО ”) ; вызов функции 
НРА ; результат выполнения 
(WRITE-CHAR <целое число> <Е1>) — печатание текста в файл без 


кавычек, а возвращение в кавычках; 
(WRITE-LINE <текст> <Е1>) — печатание текста в файл <Е1> без ka- 


вычек, а возвращение в кавычках, 


(SETQ F1 (OPEN "C:\\AUTOCAD\\LISP\\WR. LSP" "a")) 
(ЯРТТЕ-ЬТМЕ "ХОРОШЕЕ НАЧАЛО" F1 } 
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(PRINÍi <выражение> <Е1>) — печатание <выражения> в файл <Ё1> 
H возвращение значения <выражения>, текст — в кавычках; 

(PRINC <выражение> <Е1>) — печатание в файл <Е1> и возвращение 
значения <выражения>, текст без кавычек; 


(PRINC "ПРИВЕТ ВСЕМ ПОЛЬЗОВАТЕЛЯМ" F1 } 
(PRINT <выражение> <Е1>) - печатание в файл <Е1> и возвращение 
значения выражения, текст без кавычек. 


2.3.7. Функции доступа к примитивам и средствам 
AutoCAD — 


(ЕМТСЕТ <имя примитива>) - выбирает примитив из базы данных 
и возвращает его в виде списка в кодах DXF; 

(ЕМТМЕХТ <имя примитива>) — выбирает следующий примитив из 
базы данных; 

(ЕМТГАЗТ) — выбирает последний созданный примитив (объект) из 
базы данных. 

Допустим, что последним мы ввели текстовый объект с такими данными: 


Command: TEXT 

JUSTIFY/STYLE/<START POINT>: 1,4 

HEIGHT <0.2000>: 1.5 

ROTATION ANGLE <0>: Enter 

TEXT: Доброе утро 

TEXT: Enter 

После вызова функций (ENTLAST) и (ENTGET...) в командной строке 

AutoCAD получим представление последнего текстового объекта в виде 
списка ОХЕ 


Command: {SETQ Е (ЕМТСЕТ (ЕМТЬАЗТ) }) | 
{(-1 . <ENTITY МАМЕ: 3100538>) ; имя примитива 


10. "ТЕХТ*) ; Тип объекта (примитива) 
(5 . "ДЕ") ; метка 


(100 . "АСОВЕМТТТУ" } 
(67 . 0] {8 = 0") 
{100 . "АСОВТЕХТ") 


(10 1.04.00.0) начальная точка 


-a 


(40 . 1.5) ; высота 

(1 . "Доброе утро") ; текст 

(50.0.0) ; угол поворота (радианы] 
(41. 1.0}. ; степень растяжения 
(51.0.0) ; угол наклона 
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(7 . "ЭТАХРАВО") гарнитура шрифта 


(71.0) ; флаги генерации 

(72 . 0} ; тип выравнивания 

(11 0.0 0.0 0.0) ; Точка выравнивания 
(2100.00.01.0) ; вектор направления выдавливания 
(100 . "АСОВТЕХТ”") 

(73.0) 


) 

(ENTSEL [<подсказка>]) — вызывает имя примитива по указанной точке; 
Соггага: (SETQ Е (ЕМТСЕЬ "Пожалуйста, выберите примитив: ")) 

Пожалуйста, выбесите примитив: 1,4 


(НАМОЕМТГ <метка>) — возвращает имя примитива по метке; 
Cormanda: (НАМОЕМТ "4Р"} 
<ЕХЕЕТУ МАМЕ: 3100538> 
(TEXTBOX...) - возвращает диагональные координаты поля, которое 
включает текстовый объект. Если использовать предыдущий пример, то 
результат от вызова функции (ТЕХТВОХ Е) будет таким: 
Сспыега: (TEXTBOX Е) 
((0-C -0:45 0:0 {10:3 1.5 0-07) 
(SSGET [<способ выбора примитивов>]|[<точка1>[<точка2>]]) — co- 
здает набор примитивов: 


(SSGET) ; запрашивает способ выбора примитивов 
(SSGET "T”) ; выбирает текущий набор примитивов 
о T" ; выбирает последний примитив 
З5СЕТ ' (2 3)) ; выбирает примитив, проходящий через точку 
(ЭЗСЕТ "P" '(00) '(3 4)) ; выбирает примитив в рамке 
(55СЕТ "C" '(0 0) '(34)) ; выбирает примитивы, пересекаемые рамкой. 
З53ЕТ "И" «бильто-список>) ; выбирает примитивы в соответствии 

; C фильтром-списком 


Фильтр-список — это список точечных пар подобных типу списка, воз- 
вращаемых функцией (ЕМТСЕТ...). 
Например: 
(СОСЕТ "Z" '((0 . "СТВСЬЕ"))) ; возвращает набор из кругов 


Для функции (SSGET "Х"...) доступны следующие коды: 
— тип примитива; 

— имя блока для описания блока; 

имя типа линии; 

— имя гарнитуры шрифта текста или атрибутов; 

имя слоя; 


чье 
| 
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38 — уровень; 
39 — высота; 
62 — код цвета (0 по блоку и 256 -— по слою); 
66 — следующий за атрибутом флаг в описании блока; 
210 - вектор направления выдавливания. 
(SSLENGTH <набор>) — определяет число примитивов в наборе; 
(5ЗМАМЕ <набор> <номер примитива в наборе>) — возвращает имя при- 
митива по номеру примитива в наборе. Первый примитив имеет номер 0; 
(SSADD [<имя примитива>][<набор>]) - добавляет имя примитива 
в набор; . | 
(SSDEL  [<имя примитива>|[<набор>]) — удаляет имя примитива 
из набора; — 
(SSMEMB [<имя примитива>]|[<набор>]) — проверяет наличие прими- 
тива в наборе. 


2.3.8. Особые функции 


(QUOTE <выражение>) - блокировка вычисления выражения: 


(QUOTE АВС) )} ; вызов функции 
(ABCD) ; результат выполнения функции 
' <выражение> — блокировка вычисления выражения; 
'(A BCDE) ; ВЫЗОВ ФУНКЦИИ 
(A BCDE) ; результат выполнения 
(EVAL <выражение>) - вычисление любого, правильно составленного 
выражения (обычно присутствует неявно). 
Например, выражения (EVAL (ABS -3.5)) и (ABS -3.5) равносильны; 
(DEFUN <имя функции> ([<список аргументов>...| [/<локальная ne- 
ременная>]) <выражение>...) — определение новой функции: имя Функ- 
ции — это любая последовательность символов; список аргументов — это 
список переменных, значения которых должны быть определены до вы- 
полнения функции; локальные переменные — это переменные, действие 
которых ограничено данной функцией. Значением функции является зна- 
чение последнего выполняемого выражения. Память под локальные nepe- 
менные выделяется только во время вычисления функции; 


(DEFUN SIN2 (X) | ; Функция под именем SIN2 
(* (SIN X) (SIN X))) ; вычисляет SIN в квадрате 
(LAMBDA <аргумент> <выражение>...) - определение функции без 
имени; 
(APPLY ' (LAMBDA (ХУ) (+ (* ХХ} (*УУ))}} '(53)) 


34 | ; результат выполнения функции без имени 


72 Основы программирования 


(ЕГМОЕШЕ <”"имя файла">) — поиск файла с данным именем, а возвра- 
щение и с именем каталога; 
(FINDFILE "VAL1.LSP”) ; вызов функции 
"С: \\ALISP\ WALI. LSP" ; результат выполнения 
(LOAD <”"имя файла">) — функция загрузки файла и выполнения его, 
имя файла без расширения (подразумевается расширение LSP); 
(LOAD "C:\\ALISP\ WALL") 
(СЕТУАВ <”имя системной переменной“>) — определение значения 
системной переменной AutoCAD в данный момент; 


T t m A la 


СЕУЛЕ "ОТМТХТ” ) ; опоеделение высоты символов текста 
.15 ; результат 


Q 
(SETVAR <"имя системной переменной"> <значение>) — присваивание 
системной переменной AutoCAD определенного значения; 
VAR "3LIPMODE" 0) ; удаление изображения маркера 
(SETAR "CMDECHO" 0) ; удаление эха команд 
(TRACE <имя функции>...) — выдача результатов выполнения функций; 
(ОМТКАСЕ <имя функции>...) — конец отслеживания функции. 


2.4. Дополнительные функции языка AutoLISP 


(АЧТОСАР_СОГОВОГС <целое число> [NIL]) — определение цвета. 
Целое число в диапазоне 0-—256 определяет цвет; 
(ŽŁJTOCAD_COLORDIG 3) ; определяет зеленый цвет 
(AUTOCAD HELPDLG НЕГРЕШЕ TOPIC) - вызывает устаревшие 
средства справки; 
(AUTOCAD STRLSORT <список>) — сортирует список строк в aipa- 
витном порядке; 
(ЗЕТО MOS '( "ЗАМ" "РЕВ" "MAR" "APR" "МАУ" "JUN" "JUL" 
-"АОС" "SEP" "OCT" "NOV" "DEC"}) 
(AUTCCAD_STRLSORT MOS) 


eS eE EES A 


пары" KAR” "ПЕС" "REB" " ТАМ” "ПЛ," " JUN” "MAR" "МАУ" "МОМ" "OCT "SEP"”) 


(ACTION _TILE <имя подокна> <выражение действия>) — определяет 
действия, когда пользователь выбирает определенное подокно в диалого- 


вом окне; 
(ADD_LIST <строка>) — добавляет или изменяет строки в настоящее 


время в активном списке диалогового окна, 


(SETQ LLIST ' (“первая строка " " вторая строка " " третья строка ")) 
(START_LIST “LONGLIST") 
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(МАРСАВ 'ADD_LIST LLIST) 
(END_LIST) 
(ADS) - возвращает список имен в настоящее время загруженных при- 
ложений и их пути; 


(ADS) ; вызов ФуНЕЦИИ 
({"ЕТЬЕ$/РКОС$/РКОС1" "РВОС2"} ; результат выполнения 


(ALERT <строка>) — отображает поле ALERT с ошибкой или пред- 
упреждающим сообщением, переданным как строка. 

Поле ALERT - диалоговое окно с одиночной кнопкой OK; 

(ALERT " Эта функция недоступна.") 

(ALLOC <целое число>) — устанавливает размер сегмента к данному 
числу узлов. Функция возвращает предыдущий размер сегмента; 

(АКХ) - возвращает список в настоящее время загруженных приложе- 
ний АКХ с их путями; | 


(АВХ) 
("ЕТЬЕЗ/РВОС$/РКОС1" "PROG2") 


(ARXLOAD <приложение> [параметр ]) — загружает приложение ARX; 


({(ARXLOAD "/МУАРРЗ/АРРХ") 
"/МУАРРЗ/АРРХ" 


(ARXUNLOAD <приложение> [параметр]) — разгружает приложение 
ARX; 
(ARXUNLOAD "АРРХ") 
"APPX" 
(ATOMS-FAMILY <0 или 1> [список строк]) — возвращает список 
в настоящее время определенных символов: если 0, то совокупность ато- 
мов возвращает имя символа как список. Если 1, возвращается имя сим- 
вола как список строк; 


(АТОМб-ЕАМТЬУ 1 '("САВ" "CDR" "ХУ?" ) } 
("САВ" "CDR" NIL ) 


(АЧТОАВХЕОАЮ <имя> <список строк>) - предопределяет название 
команды, чтобы загрузить связанный файл ARX; 
(АОТОАКХГОАО "ВОМОЗАРР" '(” АРР1 "=" APP2 " " АРРЗ ")) 
(АЧТОГОАО <имя LSP файла > <список строк>) — загружает LSP файл; 
(AUTOLOAD "ВОМОЗАРР" '(" АРР1 " " APP2 " " АРРЗ ")) 
(AUTOXLOAD <имя приложение ADS > <список строк>) - предопре- 
деляет название команды, чтобы загрузить связанное приложение ADS; 
(АОТОХЬОАВ "ВОМОЗАРР" '(" АРР1 " " АРР2 " " АРРЗ ")) 


О О О a 
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(CLIENT_DATA_TILE <подокно> <данные>) — связывает управляе- 
мые приложением данные с подокном диалогового окна; 

(DICTADD <имя словаря> <имя объекта> <объект>) — добавляет He- 
графический объект в словарь с уникальным именем объекта; 

(ОТСТМЕХТ <имя объекта> [5]) - находит имя объекта в словаре. Если 
параметр S есть и не NIL, то восстанавливается поиск сначала. Если вход 
наиден, возвращается список точечных пар кодов типа DXF и значений; 

(DICTREMOVE <имя словаря> <имя объекта>) — удаляет объект из 
словаря: 

(ОТСТВЕМАМЕ <имя словаря> <старое имя> <новое имя>) — nepe- 
именовывает старое имя на новое в словаре; 

(DIMX_ TILE <"подокно">) — возвращает ширину подокна; 

(DIMY_TILE <"подокно">) — возвращает высоту подокна. 

Функции (DIMX TILE...) u (ОПМУ TILE...) используются с функция- 
ми (УЕСТОК [МАСЕ...), (FILL _ IMAGE...) и (SLIDE МАСЕ...), kOTO- 
рые требуют. чтобы были определены абсолютные координаты подокна; 

(DONE_DIALOG [целое число] ) — завершает диалоговое окно и выда- 
ет координаты диалогового окна. Эта функция вызывается изнутри выра- 
жения действия или функции повторного вызова. 0 — отмена диалогового 
окна. Значение состояния, большее чем 1, зависит от вашего приложения; 

(END_IMAGE) - окончание создания активного изображения диалого- 
вого окна. Эта функция — дополнение к функции (ТАКТ 1МАСЕ...); 

(END_LIST) — окончание обработки активного списка диалогового 
окна. Эта функция — дополнение к функции (START LIST...); 

(COMMAND [команды AutoCAD и их параметры [...) — выполняет за- 
данные команды AutoCAD; 

Строка пустого указателя (" ") эквивалентна нажатию клавиши Enter на 
клавиатуре. Вызов функции (COMMAND...) без параметров эквивалентен 
нажатию клавиши Е$с и отменяет большинство команд AutoCAD. 

Функция (COMMAND...) оценивает каждый аргумент и посылает его 
в AutoCAD в ответ на последовательные подсказки. 

CETO FTL "(2 3) PT2 8] 

COMMAND "LINE" PT1 PT2 "") 

В результате будет изображена линия от точки с координатами (2,3) до 
точки (7,8). р 

Если приложение использует иностранный язык в AutoCAD, названия 
команд должны начинаться с подчеркивания, с тем чтобы они могли 
транслироваться. Когда используется префикс точки (чтобы избежать ис- 
пользования переопределенных команд), подчеркивание можно разме- 
щать в любом порядке: и". ГЛМЕ", и "LINE" допустимы. 
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Команды, выполненные из функции (COMMAND...), не отображаются 
на экране в командной строке, если переменная системы СМОЕСНО 


установлена в 0. 

Функции ввода пользователя (СЕТХХХ...), (СЕТАМСГЕ...), (СЕТ- 
STRING...), (СЕТТМТ...), (СЕТРОЛМТ...) и т. д. не должны использоваться 
внутри функции (СОММАМО...). В противном случае на экране появится 
следующее сообщение: AutoCAD rejected function (AutoCAD отклонил 
функцию). 

(СУИМТ <число или список чисел> <исходная система измерения> 
<требуемая система измерения>) — преобразует числа из одной системы 
измерения в другую. 

Функция (CV UNIT...) успешно проводит преобразование, если исполь- 
зуемые системы измерений есть в файле АОТОСАО.ОМТ и если они co- 
вместимы по размерности; 


({СУОМТТ 3 "MINUTE" "5ЕСОЮО") ; вызов функции 
180.0 ; результат 
(СУОМТТ 2.0 "INCH" "СМ") 

5.08 


(СУОМТТ ' (1.03.4) "РТ" "СМ") 
(30.48 103.632) 

(СЕТЕМУ...) — обеспечивает доступ подпрограммам AutoLISP к теку- 
щим значениям переменных среды операционной системы: 

(СЕТСЕС...) и (ЗЕТСЕС...) - позволяют в приложениях AutoLISP 
просматривать и изменять значения параметров в разделе APPDATA ġa- 
ла AUTOCAD14.CFG. 

(МЕМОСМО...) - управляет показом графических окон меню. Эта фун- 
кция отображает, изменяет или делает запрос с одного из подменю теку- 
щего меню и принимает строковый параметр, который определяет подме- 
ню и его действие, чтобы впоследствии выполнить его. 

Строковый параметр состоит из двух полей, отделяемых знаком =. Оп 
может выглядеть, к примеру, следующим образом: 

"МЕМО_АВЕА=АСТТОМ" 
(МЕМОСМО "S=OSNAP") ; отображает экранное подменю ** ОСМАР 

(TEXTSCR) — отображает текстовое окно; 

(ТЕХТРАСЕ) - очищает текстовое окно перед отображением текстово- 
го окна; 

(REDRAW) - перерисовка всей графической области, она может опре- 
делять одиночный объект, который будет (или нет) выведен повторно. 
Если объект сложный, типа ломаной линии или блока, может быть произ- 
ведена перерисовка всего объекта или его заголовка; 


=" ат" 
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(СВТЕХТ...) — обеспечивает показ текста непосредственно на экране 
или в областях меню, с высвечиванием или без него; 

(СВОКАМ...) — рисует вектор в текущей области просмотра с контро- 
лем над цветом и высвечиванием; 

(СКУЕС$...) — рисует множественные векторы. 


2.4.1. Примеры определения 
пользовательских функций 


Определим функцию под именем СОРУТ, которая строит копию списка L. 
(DEFUN COPYL X 
(COND ((NULL L) NIL) 
(T (CONS (CAR L) (COPYL (CDR L))))) 


(CCPYL "(A BCD E)) ; обращение к функции 
(a BCDE) ; результат 
Определим функцию под именем REMOVE, которая удаляет из списка L все 
совпадающие с данным символом А (списком) элементы. 
(СЕРОМ REMOVE (А L) 
(COND ((NULL L) NIL) 
( (EQUAL A (CAR L)) (REMOVE A (CDR L))) 
(T (CONS (CAR L) (REMOVE А (CDR L))})) 


(I REMOVE 'А '(СБЕАС)) ; обращение к функции 
(CDE с). ; результат 


Определим функцию под именем ЕАЮТУАВ, которая проверяет, находится 
ли элемент А ранее элемента В в списке L в соответствии 
с заданным упорядоченным списком LU. 


(DEFUN ЕАРЬУАВ (A B LU) 
(COND ((NULL LU) NIL) 
( (EQ 2 (CAR Ц) T) 
( (EO B (CAR LU)) NIL) 
(T (EARLYAB A B (CDR LU))}))) 
) 
(EŁRLYAB 'C 'Е '(ABCDEF)) ; обращение к функции 
Т ; результат 


° Определим функцию под именем ADDNL, которая прибавляет к числовым 


элементам списка L число М. 
(DEFUN ŁDDNL (N L) 
(COND ((NULL L) NIL) 
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(T (CONS (+ N (CAR L)} (ADDNL М (CDR Ь))))) 
) DaF 
(ADDNL 5 ' {6 7 10)) ; обращение к функции 
(11 12 15) ; результат 


Определим функиию под именем ИМЕЙМ, которая изображает горизон- 
тальную линию с заданным числом выбранного знака. 


(DEFUN LINEZN (М ZNAK) 
(COND ((= N 0) ({PRINC)}) . 
(T (PRINC ZNAK) (LINEZN (- N 1) 2МАК))) 
) | 
(LINEZN 16 "*"} ; обращение к Функции 
о - : результат 


Вместо звездочки в функции (LINEZN...) можно использовать и другие 
символы, например, + и т. д. 

Определим функцию под именем ММОЛ,‚ которая преобразует список в MHO- 
жество, то есть в список, в который каждый элемент входит только один раз. 


(DEFUN MNOJL (Ь) 
(COND ({(NULL L) NIL) 
( (MEMBER (CAR L) (CDR L)) (MNOJL (CDR 1))) 
(T (CONS (CAR L) (MNOJL (CDR L))))) 
) 
(MNOJL '(ABAD)) ; обращение к функции 
(BAD) ; результат 


Определим функиию под именем DELLAST, которая удаляет последний 
элемент списка. 


(DEFUN DELLAST (Г) 
(COND ((NULL L) NIL) 
( (NULL (CDR L)) NIL) 
T (CONS (CAR L) (DELLAST (CDR L})))) 
) 
(DELLAST ' (A BC DE))) ; обращение к функции 
(A BC D) ; результат 


Определим функцию под именем ASSOCL, которая строит ассоциативный 
список. 


(DEFUN ASSOCL (11 L2) 
(MAPCAR 'CONS L1 L2) 
l | 
(ASSOCL ' (123) ' (ONE TWO ТНВЕЕ)) —; обращение к функции 
((1 . ONE) (2. TWO) (3 . ТНВЕЕ)) ; результат выполнения 
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Определим функцию под именем ВЕАПТГ, которая из множества вводимых 
элементов в строке образует список элементов. 
(DEFUN READL () 
(PRINC (STRCAT "(" (READ-LINE) *)")) 


} 

(READL) ; обращение к функции 

ARC 1232 ; вводимые данные с клавиатуры 
(aB C 12 34) ; результат работы функции 


Определим функцию под именем READS, которая считывает строку в виде 
списка из файла. Запрос названия диска, каталога и имени файла должен 
проводиться в диалоговом режиме. 
(DEFUN READS () 
(SETQ DD (GETSTRING "\п Введите имя диска -") 


CC (GETSTRING "\п Введите имя каталога - ") 
ЕЕ (CETSTRING "\п Введите имя файла - ") 
Fl (STRCAT DD "FW" СС "AVA EE ) 
FF (EVAL (LIST "OPEN ЕТ ””"r”)) 
SS (READ (STRCAT "{" (READ-LINE FF) ")" )})) 
CLOSE ЕЕ 
(READS) ; обращение к функции 


Допустим, файл под именем SETDGR.REZ содержится на диске С: 
в каталоге ORGANIZA. Первая строка файла выглядит так: 10 11. Тогда 
при обращении к функции под именем READS появится следующая 3a- 
прашивающая информация. Справа приведены ответы: 


Введите имя писка - С ; вводим имя диска С 

ВЕ=едите имя каталога - ORGANIZA ; вводим имя каталога 
=едита имя байла - SETDCR.REZ ; вводим имя файла 

(19 11) ; результат работы функции 


Далее обратимся к функциям для выполнения различных вычислитель- 
ных операций. 
Определим функиию под именем FACT для расчета факториала с использо- 
ванием рекуррентной формулы 
М! = М * (N-1) * (М2) *...3*2*1 
HJIH 
М! = М * (N-i) - 
(СЕРОМ РАСТ (М) 
(ТЕ (=N0) 1 (* N (РАСТ (- N 1}))) 


) 
(РАСТ 4) ; обращение к функции 


24 ° р результат 


Дополнительные функции языка АмоИ5$Р 79 


Одной из наиболее часто встречающихся операций при работе со спис- 
ками является их соединение. 
Определим функцию под именем АРРЕМО, которая по двум спискам стро- 
ит новый список, содержащий в определенной последовательности все 
элементы первого и второго списков. 


(DEFUN APPEND (L1 L2) ; соединение двух списков B один 
(ТР (NULL L1) L2 (CONS (CAR L1) (APPEND (CDR L1) 12})) 


) | 
(APPEND '(АВС) '(РФЕЕСН)) ‚ вызов функции 


(ABCDEFGH) ; результат работы функции 


Определим функцию под именем ММОС5Т, которая вычисляет степенной 
многочлен 
ул AA EAA TARA h 
Для вычисления степенного многочлена используем схему Горнера 
Y=A,tX(A tX(A,+X(A, +...))) 
которая обеспечивает получение результата при минимальном числе One- 
раций. 


(DEFUN MNOGST (X LA) ; функция вычисления многочлена 

(SETQ Y0 
N (LENGTH LA) ; определение числа членов в многочлене 
I 0) 

(REPEAT (- N 1) 

(SETQI (+ I 1) 
Y (* X (+ (NTH (- N I) LA) Y)))) 
(SETO Y (+ (NTH O LA) Y}) 


Запишем данную функцию в файл под именем MNOGST.LSP. Допус- 
тим, этот файл находится на диске С: в подкаталоге LISP каталога 
AUTOCAD. Обращение к этому файлу будет выглядеть так: 

С: \ \АОТОСАР\ \ЬТ$Р\ \ММОСЕТ. LSP 

Далее в этом же файле запишем оператор для вывода результатов рас- 
чета в этот же файл. 

(SETQ РИ (OPEN "C:\\AUTOCAD\\LISP\\MNOGST.LSP" "а")) 

Переменную FW часто называют дескриптором файла. 

Вызовем в том же файле функцию под именем ММОС$Т для вычисле- 
ния заданного степенного многочлена, например, многочлена вида: 

Y =0.5 + X + 2X? + 3X3 + 4X‘ + 5X 

для X = 2. 


ТГ. ah 
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(ММОСЗТ 2 '(0.512345)) ; Обращение к функции 
Запишем результат расчета в файл MNOGST.LSP. 
(PRINT У FW) ; вывод результатов B файл с дескриптором FW 
Ниже представлен результат расчета, записанный в файл MNOGST.LSP. 
258.5 ; результат 
Определим функцию под именем СНЕВ, которая вычисляет полином Чебы- 


шева. Для вычисления полиномов Чебышева первого рода известна явная 


H рекуррентная формулы: 
N/24_ANMIN_M_ 
ТСО =мМ/ 25 С ММ oxy 


м МИМ-2М) 
Т....(Х)=2 XT, (Х) -T (X) 


В явной формуле верхний индекс суммирования означает ближайшее 
целое число, не превосходящее N/2. 

Рекуррентную формулу чаще всего применяют при М >= 1, полагая 
T(S) =1иТ(Х) = Х. 


(DEFUN CHEB (X N) ; Функция вычисления полинома Чебышева. 
(COND ((=0М0) 1) 
( (EQN 1) X) 
(T (- (* 2 X (CHEB X (-N1))) (CHEB X (- N 2)))) 


) 

Запишем данную функцию B файл под именем CHEB.LSP, Далее в этом 
же файле запишем оператор для вывода результатов расчета в этот же 
фаил. 

(SETQ FW (OPEN "С: \\АБТЗР\\СНЕВ.Ё5Р" "а")} 

Вызовем функцию под именем СНЕВ для вычисления полинома Чебы- 
шева с заданными параметрами и проведем вывод результатов расчета 
в файл с дескриптором FW. 


(PRINT (CHEB 2 5) FW) ; обращение к функции 
Ниже представлен результат расчета, записанный в файл CHEB.LSP. 
362 ; результат 


В отличие от языков высокого уровня, LISP, в том числе AutoLISP, npe- 
доставляет возможность конструирования функций языка самой про- 
граммой и последующего ее выполнения. В качестве примера составим 
программу, которая сформирует функцию под именем МАХО для опреде- 
ления максимального из чисел, вводимых в диалоговом режиме. 
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(SETQ A (LIST МАХ} } ; определение начального списка А 
(SETO М (GETINT "\п Введите число чисел в массиве. N = ") 
I 1) 
(REPEAT N 
(SETQ В (GETREAL (STRCAT "\n Введите " (ITOA I) "-е число: ")) 
Т (+11; 
А (CONS ВА} ; формирование списка А 
) 
) 
(SETQ МАХО (REVERSE А) } ; формирование функции в виде списка 
(EVAL МАХ}. ; выполнение функции 


После загрузки файла в командной строке появятся запросы. Необхо- 
димо ввести нужную информацию, например: 


Введите число чисел в массиве. М = 6 
Введите 1-е число: 5.5 

Введите 2-е число: 7 

Введите 3-е число: 10.45 

Введите 4-е число: 3.1 

Введите 5-е число: 9 

Введите 6-е число: 1.17 

10.45 ; результат 


Определим функцию под именем MODES, которая сохраняет значения CH- 
стемных переменных: 


(DEFUN MODES (L) 
(SETQ MLST NIL) 
(REPEAT (LENGTH L) ; 
(SETQ MLST (APPEND MLST (LIST (LIST (CAR L) 
(GETVAR (CAR L)))))) 
(SETQ L (CDR L))) 
) 
Затем вызовем функцию MODES для сохранения определенных сис- 
темных переменных, например: 
(MODES '{ "BLIPMODE" "СВТОМОБЕ" "ORTHOMODE" "OSMODE" 
"SURFTAB1" "SURFTAB2" "UCSFOLLOW”) ) 
Определим функцию под именем MODER, которая восстанавливает значе- 
ния системных переменных: 
(DEFUN MODER ({} 
(REPEAT (LENGTH MLST)} 
(SETVAR (CAAR MLST) (CADAR MLST) ) 
(SETQ MLST (CDR MLST))}) 
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2.5. Программирование на AutoLISP в среде 
Visual LISP 


Visual LISP имеет ряд инструментальных средств и возможностей для 
облегчения разработки программ на языке AutoLISP. 

При использовании Visual LISP разработка программы на языке 
AutoLISP включает следующие основные этапы: 

° разработку последовательности действий решения задачи; 

° разработку программы; 

e форматирование программы для большей наглядности; 

° поиск синтаксических ошибок в программе; 

e тестирование и проверку работоспособности программы. 

Ввод текста программы производится в окне консоли после подсказки 

_>. Развернутое окно консоли с введенной программой представлено на 

рис. 2.2. 

Следует помнить, что текст, который вводится в окне консоли Visual LISP 
а также любой результат выполнения можно сохранять для дальнейшего 
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Рис. 2.2. Розвернутое окно консоли Visual LISP 
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просмотра. Кроме того, любой текст в окне можно копировать и вставлять 
его в ответ на подсказку или в другое приложение Windows. 

Консоль системы Visual LISP во многом схожа с командным окном 
AutoCAD, однако располагает рядом дополнительных возможностей. Ha- 
пример, чтобы отобразить текущее значение переменной AutoLISP 
в Visual LISP, достаточно напечатать имя переменной в окне консоли 
и нажать клавишу Enter, а чтобы просмотреть значение переменной 
в AutoCAD, необходимо напечатать имя переменной с восклицательным 
знаком впереди (!) и также нажать клавишу Enter. 

Консоль AutoLISP имеет и другие дополнительные возможности: 

° ввод выражения AutoLISP в строке, которая определяется нажатием 

комбинации клавиш Ctrl+Enter: 

. ввод больше чем одного выражения перед нажатием клавиши Enter, 

и Visual LISP оценит каждое выражение перед выдачей результата на 
консоли. 

Если курсор находится в окне консоли, но не на подсказке, то после на- 
KATHA клавиши Enter курсор перемещается в подсказку. 

Если вы наберете текст в окне консоли прежде, чем нажмете Enter (па- 
пример, результат предыдущей команды или предварительно введенного 
выражения), Visual LISP скопирует выбранный текст после подсказки. 

Чтобы вернуться к предпоследнему введенному тексту в окне консоли, 
необходимо пажать клавишу Tab. Каждый раз после нажатия клавиши Tab 
ранее введенный текст заменяст текст в подсказке окна консоли. Как толь- 
ко процесс дойдет до первой введесиной строки, он повторяется снова. 

Комбинация клавиш Shift+Tab действует подобно Tab, но листает вход- 
ную хронологию в обратном направлении. 

Клавиша Tab допускает ассоциативный поиск во входной хронологии. 
Например, если вы напечатаете знаки (+ в подсказке консоли и нажмете 
клавишу Tab, Visual LISP произведет поиск последнего текста, который 
начинался с символов (+, а если такого текста нет, то, возможно, появится 
звуковой сигнал. Комбинацию клавиш Shift+Tab можио использовать для 
того, чтобы осуществить ассоцнативный поиск от ранних до болес поздних 
ВВОДОВ. 

Клавиша Esc очищает окно консоли после подсказки. Нажатие комби- 
нации клавиш Shift+Esc оставляет panee введенный текст, но приводит 
к новой подсказке без выполнения ранее введепиого текста. 

Нанболее важные функции, необходимые при работе в окие консоли, 
сосредоточены в контекстном меню. Для быстрого вызова контекстного 
меню щелкните правой кнопкой мышки в любом месте окна консоли или 
нажмите комбинацию клавиш ЗЫ Ё+Е10 (рис. 2.3). 
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В зависимости от позиции курсора, а также от того, имеется ли выделен- 
ный текст в окне консоли, некоторые операции могут быть неактивными. 
Данное контекстное меню содержит следующие команды: 


e Cut (Вырезать) — удаляет выделенный текст О а ис 
из окна и перемещает его в буфер; à ke Е 

e Copy (Копировать) — копирует выбранный $ `Päste Я 
текст в буфер обмена Windows (СПрВоага); ‘ Clear Console Window 


e Paste (Вставить) — вставляет содержимое 
буфера обмена в место расположения кур- — 
сора; | Inspect... 

e Clear Console Window (Очистить окно KOH- › iin raTa Hs 

горо$ vYiIndow... 
соли) — очищает окно консоли; та 
и ы Symbol Зегисе..: 
e Find (Найти) — открывает диалоговое окно 


Find.. 


понска задаваемого фрагмента; yo Hno. 
e Inspect (Проверить) — открывает диалого- | Hedo 
вое окно просмотра выражения; ’ AutoCAD Mode 


e Add Watch (Добавить наблюдение) — откры- Toggle Console Log... 
вает диалоговое окно наблюдения выражения; 
e Apropos Window (Окно поиска по фрагмен- 
ту) — открывает диалоговое окно для Ha- 
стройки системы поиска слова по фрагменту; 
e Symbol Service (Обслуживание символов) — открывает диалоговое 
окно обслуживания символов; 
e Undo (Отменить) — отменяет последнюю выполненную команду; 
e Redo (Восстановить) — восстанавливает последнюю отмененную KO- 
манду; 
e AutoCAD Mode (Режим AutoCAD) - передает весь ввод командной 
строке AutoCAD; 
e Toggle Console Log (Установить/удалить файл регистрации) — откры- 
вает диалоговое окно Open Log (Открыть файл регистрации)Д. 
Обратите внимание, что между окном консоли Visual LISP и окном KO- 
мандных строк AutoCAD текст можно «вырезать и вставлять». Кроме того, 
окно консоли Visual LISP и окно командных строк AutoCAD отличаются 
по способу, которым обрабатываются клавиши Space и Tab. В окне konco- 
ли Visual LISP пробел не играет никакой роли и служит только раздели- 
телем. Если в окне командных строк AutoCAD нажать клавишу Space не 
внутри выражения, это вызовет окончание ввода и обработку текста, как 
если бы вы нажали клавишу Enter (Ввод). 
Как только вы начнете вводить текст после подсказки в окне консоли, 
Visual LISP определяет, чем является введенное слово — встроенной 


Рис. 23. Контекстное меню 
окна консоли 
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функцией AutoLISP, числом, строкой или другим элементом. Каждый 
тип элемента языка наделяется собственным цветом. 

Если вы вводите имя функции в окне консоли после подсказки, то, щел- 
кнув по кнопке Help (Помощь) на инструментальной панели Tools (Инст- 
рументы), получите справку Visual LISP о функции. Это правило действу- 
ет в отношении любых элементов AutoLISP, Visual LISP или функции 
(ACTIVEX), распознанных Visual LISP. 

Вы можете сохранить запись всех действий в окне консоли, если заре- 
гистрируете эти действия в Log (регистрационном) файле. Позже у вас бу- 
дет возможность просмотреть файл и проанализировать действия, кото- 
рые выполнялись в окне консоли. 

Чтобы создать файл регистрации, выберите команду Toggle Console Log 
(Установить/удалить файл регистрации) падающего меню File (Файл) 
главного меню Visual LISP. При этом окно консоли должно быть актив- 
ным. На экране появится диалоговое окно Open Log (Открыть файл peru- 
страции) (рис. 2.4). 

Выберите каталог для файла регистрации, а затем определите название 
файла. Если такой файл существует, на экране появится запрос о добавле- 
нии данных к уже имеющемуся файлу (рис. 2.5). 

Допустим, файл регистрации уже существует (Log file С\Мои доку- 
менты\Аот.ГОС already exists). Если на вопрос Append log to existing file? 
(Присоединить регистрационные данные к существующему файлу?) вы 
ответите Yes (Да), Visual LISP добавит информацию с консоли к текущему 


Open loc 


Dena: [S Monay E l | 


`] ^тззеирА 
Corel User Files 
Microsoft 


= p d maia kat eii ------ D S ^^! aai. SAA og ` < =: = + 3 —- > рее р > Не А a oadet A i 
E n - < E а 
в n у | F -4 un 


‚ Имя файла: [ | Сохранить 


gora о = _ 


‚ Тип файла: [Log Files (*.lo0) -| Отмена | 


nasia dk iat ----- - 


12 


Рис. 2.4. Диалоговое окно открытия файла регистрации 


war a >. ыыы аки — > авы ‚a 
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Log file С\Мои документь\Чот ГОС 
already exists. EA 
‚ Append log to existing file? 


Отмена | 


Рис. 2.5. Запрос о добовлении данных к существующему файлу регистрации 


содержанию файла. В случае если вы предпочтете ответить № (Нет), 
Visual LISP также произведет запись в файл с этим же именем, однако Nep- 
воначальное содержимое файла будет потеряно. Чтобы завершить опера- 
цию и присвоить файлу другое имя, нажмите кнопку Отмена (Cancel). 

Для того чтобы завершить регистрацию и закрыть соответствующий 
файл. выберите пункт Toggle Console Log (Установить/удалить файл pe- 
гистрации) из падающего меню File (Файл). По названию окна консоли 
можно определить, находится ли консоль в состоянии регистрации. Если 
регистрация проводится, то в названии окна отражено имя файла регист- 
рации. Когда регистрация выключена, имя файла в названии окна консо- 
ли отсутствует. 

Если вы забыли закрыть файл регистрации до выхода из Visual LISP, 
система сделает это автоматически. После закрытия файла регистрации вы 
можете просматривать его содержимое в любом текстовом редакторе типа 
Visual LISP. 

Обратите внимание на возможность непосредственного взаимодействия 
через окно консоли AutoLISP с AutoCAD. Чтобы включить этот режим, 
выберите пункт AutoCAD Моде (Режим AutoCAD) из падающего меню 
Tools (Инструменты) главного меню Visual LISP или обратитесь к пункту 
AutoCAD Моде (Режим AutoCAD) в контекстном меню консоли. lox- 
сказка в окне консоли изменится на COMMAND. 

Любая последовательность символов, введенная после этой подсказки, 
будет рассматриваться как командная строка AutoCAD. Таким образом, 
у вас появится возможность вводить команды AutoCAD изнутри Visual 
LISP. 

Рабочая среда AutoLISP отличается от рабочей среды Visual LISP. 

Покажем это на следующих примерах. 

38 (SETQ X 1) присваивает X значение 1 в среде Visual LISP 


СОММАМО: (SETQ Y 2) ; присваивает У значение 2 в среде AutoLISP 
COMMEND: !Z ; отображает NIL в командной строке AutoCAD 
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_$ У 
NIL 

$ X 

1 

Чтобы вернуться к окну консоли Visual LISP, выберите пункт AutoCAD 
Mode (Режим AutoCAD) так же, как вы делали это при переключении 
в AutoCAD. Пункт меню AutoCAD Моде (Режим AutoCAD) работает как 
переключатель «вкл\выкл». 

Не исключено, что возникнет ситуация, когда консоль Visual LISP 6y- 
дет ждать ввода из AutoCAD, а AutoCAD будет полагать, что управление 
передано Visual LISP. В таком случае можно попробовать прервать коман- 
ду AutoCAD и вернуться в Visual LISP. 

Если в окне консоли Visual LISP появится следующая подсказка: 

1_$ 
; Entering keyboard break loop 

необходимо возвратить управление AutoCAD и нажать клавишу Esc для 
перехода в рабочую среду Visual LISP. Чтобы возвратить управление Auto- 
САО, нажмите кнопку Activate AutoCAD (Активизировать AutoCAD) 
на инструментальной панели View (Просмотр). 

После нажатия клавиши Esc в AutoCAD можно продолжать взаимодей- 
ствие с консолью Visual LISP. 

Текстовый редактор — один из основных компонентов Visual LISP. Он 
прост в использовании и располагает рядом возможностей, которые упро- 
щают процесс программирования на AutoLISP. К таким возможностям 
текстового редактора относятся: 

° выделение правильных выражений AutoLISP; 

e отслеживание парных круглых скобок; 

° выделение цветом различных элементов программы согласно синтак- 

сису языка; 

. выполнение правильных конструкций выражения AutoLISP без выхо- 

да из окна редактора. 

Большинство команд текстового редактора вызываются из строки меню: 
для некоторых из них, используемых наиболее часто, предназначены кнои- 
ки инструментальной панели. 

Чтобы открыть новый файл в текстовом редакторе Visual LISP, выбери- 
те пункт New File (Новый файл) из падающего меню File (Файл). На əx- 
ране появится развернутое окно текстового редактора (рис. 2.6). 

Чтобы ввести текст, наберите его в активном окне текстового редактора. 
Для начала новой строки нажмите клавишу Ещег. Текстовый редактор не 
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Рис. 2.6. Развернутое окно текстового редактора 


переносит набранный текст на новую строку до тех пор, пока не будет на- 
xaTa клавиша Enter. 

Чтобы выровнять текстовую строку, введите пробелы или нажмите кла- 
вишу Tab. В последнем случае используйте Code Formatter (Кодовый 
форматер) Visual LISP, чтобы автоматически выровнять выражения 
в программе. 

Нажатие комбинации клавиш Shift+Enter очищает конечный пробел 
и символы табуляции, вставляет новую строку и отступы, использующие 
предыдущий непустой отступ строки. 

Нажатие комбинации клавиш Ctrl+Enter очищает конечный пробел 
и символы табуляции, вставляет символ NewLINE и выполняет «интел- 
лектуальный» отступ. 

Чтобы вставить новый текст в уже существующий, щелкните мышкой 
в месте вставки и начните вводить текст. Место вставки можно указать 
также клавишами курсора. 

Если вы хотите отменить только что введенный текст или последние из- 
менения, выберите пункт Undo (Отменить) из падающего меню Edit (Ре- 
дактирование) или щелкните мышкой по кнопке Undo. Команда Undo 
отменяет только последнее изменение. 

Можно отменить также действие Undo. Для этого сразу после нажатия 
кнопки Undo (Отменить) выберите пункт Redo (Восстановить) из падаю- 
щего меню Edit или щелкните мышкой по кнопке Redo. 

Чтобы сохранить изменения в файле до следующего сеанса работы 
с Visual LISP, выберите пункт Save As (Сохранить как) из падающего 
меню File (Файл) главного меню Visual LISP или щелкните мышкой по 
кнопке Save File (Сохранить файл) и определите путь, а также имя файла. 
Если вы попытаетесь выйти из Visual LISP до сохранения файла, Visual 


LISP спросит, сохранить ли изменения. 
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Visual LISP поддерживает автоматическое создание резервных копий 
файлов, загруженных текстовым редактором. Фактически создание резерв- 
ных копий происходит, когда вы сохраняете файл впервые. Файл с резерв- 
ной копией имеет то же имя, что и исходный, за исключением расширения, 
которое включает символ подчеркивания _ и первые два символа первона- 
чального расширения. Например, для исходного файла PRIVET.LSP имя 
файла с резервной копией выглядит следующим образом: РЕТУЕТ. Т.5. 

Для того чтобы файлы с резервными копиями создавались автоматичес- 
ки, необходимо выбрать пункт General Options (Общие параметры) из 
всплывающего меню пункта Environment Options (Параметры среды) na- 
дающего меню Tools (Инструменты). Режим автоматического создания pe- 
зервной копии будет включен, если выбрать Backup Фе file edited оп first 
save (Резервная копия файла, впервые отредактированная, сохраняется). 
Данный режим используется по умолчанию. 

Чтобы открыть существующий файл, выберите пункт Open File... (От- 
крыть файл) из падающего меню File (Файл) главного меню Visual LISP 
или щелкните по кнопке Open File (Открыть файл). На экране появится 
стандартное диалоговое окно Open file to edit/view (Открыть файл для pe- 
дактирования/просмотра). Visual LISP открывает новое окно текстового 
редактора для файла, который вы выбираете. Открыть можно любое ко- 
личество файлов, но работать можно только с одним — активным. Актив- 
ное окно находится поверх остальных окон, и заголовок его отличается от 
них по цвету. Каждый файл Visual LISP помещает в свое отдельное окно 
текстового редактора. Имя выбранного файла находится в поле заголовка 
окна текстового редактора. 

Если при выходе из Visual LISP файлы остаются открытыми, то они 
сохраняются до следующего сеанса работы в Visual LISP. Когда вы в cne- 
дующий раз начинаете работу в Visual LISP, он автоматически открывает 
эти файлы. 

По мере ввода программы в окне текстового редактора Visual LISP 
определяет, чем является введенное слово: встроенной функцией Auto- 
LISP, числом, строковой константой или другим элементом языка, KOTO- 
рый он распознает. Каждому виду элемента присваивается собственный 
цвет, что помогает обнаружить отсутствующие кавычки или имя функ- 
ции с орфографической ошибкой. Заданная по умолчанию схема цветов 
такова: | 


Элементы языка AutoLISP Цвет 
Встроенные функции Голубой 
Строки Сиреневый 


Целые числа Зеленый 


i J r 


wa 
P 


„ 


— РИ НВ, Ч a 
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Цвет морской волны 
Сиреневый на сером фоне 


Вещественные числа 
Комментарии 
Круглые скобки Красный 
Переменные пользователя Черный 


Если функция неизвестна Visual LISP, она не будет идентифицирована 
и кодирована цветом. 

Редактор Visual LISP обеспечивает кодирование цветом файлов LISP, 
а также DCL, SQL, С. 

Visual LISP использует расширение имени файла, чтобы определить тип 
файла. и выбирает соответствующий цвет. Цвет, связанный с типом þat- 
ла, можно изменять. Для этого необходимо выбрать пункт Syntax 
Coloring... (Синтаксис установки цвета) из всплывающего меню пункта 
Window Attributes (Параметры окна) из падающего меню Tools (Инстру- 
менты) главного меню Visual LISP 

Если вы выделяете имя функции в окне текстового редактора и нажи- 
маете кнопку Help (Помощь) - кнопку со знаком вопроса на инструмен- 
тальной панели Tools (Инструменты), появляется справка для данной 
функции Visual LISP 

Наиболее важные функции, необходимые при работе в окне текстового 
редактора, сосредоточены в контекстном меню. Для быстрого вызова кон- 
текстного меню щелкните правой кнопкой мышки в любом месте окна тек- 
стового редактора или нажмите комбинацию клавиш Shift+F10 (рис. 2.7). 

В зависимости от позиции курсора, а также оттого, имеется ли выделен- 
ный текст в окне текстового редактора, некоторые 


пункты могут быть неактивными (невысвеченными) С 

или даже отсутствовать. Copy 
Большинство пунктов контекстного меню окна Paste: 

текстового редактора аналогичны пунктам KOH- Find ^^ 


текстного меню окна консоли (см. рис. 2.3), поэтому 
перечислим только новые из них: 


Go to Last Edited 


ki Toggle Breakpoint | 


Со to Last Edited (Идти к последнему месту pe- 


Inspect... 
дактирования) — переместить курсор в позицию ` AddWatch 
последней точки редактирования; Аргороз Window: 


Toggle Breakpoint (Установить/удалить точку 
прерывания в позиции курсора) — установить точку 
прерывания в позиции курсора, если ее там не было, 
и удалить ее, если она там была. 

Если курсор стоит в позиции точки прерывания, 
то при вызове контекстного меню правой кнопкой 
мышки в нем вверху появляется новый пункт 


Symbol Service... 


lindo. 
-Redo 


Рис. 27. Контекстное 
меню окна текстового 


редактора 
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Breakpoint service (Обслуживание точек прерывания). При выборе этого 
пункта контекстного меню окна текстового редактора появляется соответ- 
ствующее диалоговое окно. | 

В редакторе текста Visual LISP термин «слово» означает последователь- 
ность символов, отделяемых одним или большим количеством следующих 
специальных символов: 


Space пробел 


Tab метка табуляции 
одиночная кавычка 

( левая круглая скобка 
) = Правая круглая скобка 


удвоенная кавычка 
точка с запятой 

\п перейти к новой строке (NewLine) 

[] непечатные символы ASCII (например, \001—\037) 


Допустим, вы забыли правильное написание имени функции. Тексто- 
вый редактор Visual LISP может помочь восстановить слово двумя спосо- 
бами: по первым буквам (символам) слова или по фрагменту слова. Напе- 
чатайте, например, в окне текстового редактора два символа DE и нажмите 
комбинацию клавиш АЁ+/ (Alt+Slash), чтобы восстановить полное слово 
по частично введенному. Получите имя DEFUN. Visual LISP восстанавли- 
вает частично введенное слово в соответствии со словом из таблицы иден- 
тификаторов Visual LISP. Чтобы вызвать список полных слов по частично 
введенному, нажмите комбинацию клавиш Ctri+Shift+/. 

Таким образом, предоставляется возможность выбора щелчком мышки 
нужного слова. 

Допустим, вы помните начальный фрагмент имени функции. Нанеча- 
тайте, например, в окне текстового редактора FUN. Щелкните по кнопке 
Apropos (Поиск слова по фрагменту) — кнопке 
с буквой А в скобках. На экране появится окно U} Apropos 
Apropos (Поиск слова по фрагменту) (рис. 2.8). 

В поле сообщений в нижней части окна име- 
ется надпись 2 symbols starting with "Ёп" (най- 
дены 2 имени, начинающиеся с "Рип"). 

Чтобы выбрать имя из окна, необходимо сде- 
лать следующее: 

° выбрать из списка имя; 

° щелкнуть правой кнопкой мьишки для вы- Puc. 28. Окно поиска списка 

вода контекстного меню (рис. 2.9); слов по фрагменту Apropos 
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* выбрать пункт Copy to clipboard (Копировать Сорув dipboardi 43 


в буфер обмена); В ереси 
° щелкнуть в окне редактора в том месте, где необ- \ Print- FY 
ходимо вставить имя функции; H Symbol... + 
e щелкнуть правой кнопкой мышки для вывода |- Copy, . 


контекстного меню (см. рис. 2.7), выбрать Paste |- Add to Watch 
(Вставить) или нажать комбинацию клавиш 
Ctrl+V для того. чтобы вставить текст. 
Допустим, вы помните фрагмент имени функции. 
Напечатайте, например, в окне тексто- 
вого редактора DEFUN. Щелкните по 
кнопке Apropos (Поиск слова по 
фрагменту) — кнопка с буквой А MERS 
в скобках, на экране появится диало- 
говое окно Аргоро$ (Поиск слова по 
фрагменту) (рис. 2.10). ‚Г. Озе WCMATCH 


Диалоговое окно поиска по фраг- | №.бо\мтсазе symbols 


менту содержит следующие виды |= 
у одержит следующие muo | Пение 
флажков: o F —— 3. 
e Match Бу Prefix — соответствовать Filter Flags | < Cancel | 


13. Heip 


Рис. 2.9. Контекстное 
меню окна Аргоро$ 


Г’. Match Бу Prefix 


префиксу; 

e Use \УСМАТСН - использовать 

групповые символы, например, *; 

e Downcase Symbols — соответство- 

вать заданным символам. 

Ниже слева имеются две кнопки: (И Filter value type El 

e Filter Value (Фильтр данных) — открыть AM- ` Match AVANS 

алоговое окно выбора фильтра. тои 

e Filter Flags (Фильтр флажков) — открыть | 

диалоговое окно выбора флажков данных. | 

e Если щелкнуть по кнопке Filter Value, no- | 

явится диалоговое окно выбора фильтра 
типа данных (рис. 2.11). 

Диалоговое окно для выбора фильтра типа MAH- | 
ных Filter value type (Фильгр типов данных) ' 
представляет собой перечень типов данных, среди | 
которых может производиться поиск. Один из | | т 
кружочков отмечается точкой. Для установки точ- | JL Cancel | 
ки нужно щелкнуть по кружочку мышкой. В на- - 
шем примере поиск производится без фильтра, т.е. Рис. 2.11. Диалоговое окно для 
ищется полное слово среди всех типов данных. выбора фильтра типа данных 


Рис. 2.10. Диалоговое окно поиска по 
фрагменту Apropos 


C. Null value 


C. Nonull value 


Г Function 


СГ: User function 
C) Built-in function . 
Г) Exsubr 
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Поиск полного слова может производиться среди; 

e All (по filter) — всех типов данных (без фильтра); 

e Null value (Нулевые значения) — нулевых значений символов; 

e Моп!Ш value (Ненулевые значения) — ненулевых значений символов; 

e Function (Функция) — функций (пользовательские, встроенные, ...); 

e User function (Пользовательская функция) — определенных пользова- 
телем функций; 


° Built-in function (Встроенная функция) — 


Match by symbol flags — 


встроенных функций Visual LISP; | 

° Exsubr (Внешняя функция) — внешних функций. || 

Если щелкнуть по кнопке Filter Flags, появится | 
дналоговое окно для выбора флажков (рис. 2.12). 

Выбор имен производится в соответствии с уста- | 
новками флажков: Г Ехрой® ACAD 

e Protect Assign — защитить присваивание; | 

e Trace — трассировка программы; [19° | Сапсе! | 

e Debug оп Entry — отладка на входе; | 

» Export to ACAD - экспортирование в AutoCAD. Рис. 2.12. Диалоговое окно 

Если фильтр флажка включен, рассматриваются AA выбора флажков 


оне | 


Г Trace 
Г’ Debug on Entry 


только наборы символов с выбранными ident Block Tab? 
флажками. _ ^ Unindent Block Shift-Tab 
После вызова пункта Extra Commands | indentto CusrentLevel Си-А-Таь 


(Особые команды) падающего меню Edit = Prefix With... 

или нажатия комбинации клавиш CtrÌl+E — Append With... 
при активном окне текстового редактора Г CommentBlock 
Visual LISP появится всплывающее меню |’ псоттемвюск 
особых команд редактирования (рис. 2.13), | Save Block As 
куда входят следующие команды: n 


e Indent Block (Сделать отступ для вы- 25889 Ctr-Shift-U 
Downcase Ctri-U 
деленного блока) — сделать отступ С 
для каждой строки выделенного бло- ni 
ка и добавить табуляцию к началу ` Inser Date 
каждой строки; Insert Time 


e Unindent Block (Отменить отступ ` FormmeatDete/Time... 
для выделенного блока) — отменить ` SorBlock 
отступ для каждой строки выделенно- | 


- InsetFile... 
го блока текста и удалить табуляцию; 

° Prefix With (Добавить в начале) — no- Delete to EOL 
бавить текст, введенный в строке под- t+ Delete Ват ano ocu o 
сказки, в начало текущей строки или Рис. 2.13. Меню особых команд 


к каждой строке выделенного блока; редактирования 
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e Append With... (Присоединить в конце) — присоединить текст, BBE- 
денный в строке подсказки, в конце текущей строки или в конце каж- 
дой строки выделенного блока; 

e Comment Block (Закомментировать выделенный блок) — преобразо- 
вать выделенный текст в комментарий; 

e Uncomment Block (Разкомментировать выделенный блок) — преобра- 
зовать выделенные комментарии в текст программы; - 

e Save Block As... (Сохранить выделенный блок как файл) — сохранить 
выделенный блок текста как файл; | | 

e Upcase (Конвертировать в прописные) — преобразовать выделенный 
текст в прописные буквы; 

e Downcase (Конвертировать в строчные) — преобразовать выделенный 
текст в строчные буквы; 

e Capitalize (Представить слово с прописной буквы) — печатать пропис- 
ными буквами первый символ каждого слова в выделенном тексте; 

e Insert Date (Вставить дату) — вставить текущуто дату (по умолчанию 
формат mm/dd/yy); 

e Insert Time (Вставить время) — вставить текущее время (по умолча- 
нию формат hh:mm:ss); 

e Format Date/Time (Отформатировать дату/время) — изменить op- 
мат даты и времени; 

e Sort Block (Отсортировать строки блока) — отсортировать строки в 
алфавитном порядке в выделенном блоке; 

e Insert File (Вставить файл) - вставить текстовый файл в текущее окно 
редактора в позицию курсора; 

e Delete to EOL (Удалить все от курсора до конца строки) — стереть все 
от позиции курсора до конца текущей линии; 

e Delete Blanks (Удалить пробелы) — удалить все пробелы от позиции 
курсора до первого символа в строке. 

Кроме клавиш управления курсором, для редактирования текста 


в Visual LISP можно использовать следующие комбинации клавиш: 


Перемещение Клавиши и комбинации клавиш 
На одно слово влево СЫ1+<- 

На одно слово вправо Ctrl+— 

К концу строки End 

K началу строки | Ноте 

На одно окно вниз Page Down 

На одно окно вверх Page Ор 

К концу документа Ctri+End 


К началу документа _ Си1+Ноте 
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К открывающей круглой скобке влево Ctrl+[ 
К закрывающей круглой скобке вправо  Ctrl+] 


Удалять слова, строки или абзацы можно, используя комбинации клавиш: 
Операции удаления Комбинации клавии 
Стирает слово слева от курсора Ctrl+BackSpace 
Стирает слово справа от курсора Shift+BackSpace 
Удаляет строку Ctrl+Y 

Использовать режим вставки можно путем нажатия клавиши Ins. В режи- 

ме вставки каждый напечатанный символ заменяет текущий. 
К другим методам выделения текста относятся следующие: 


Операции выделения 


Расширение/сужение выделения: 


Комбинации клавиш 


до следующей строки Зы +] 

до предыдущей строки Shift+Î 

на одно окно вниз Shift+Page Down 
на одно окно вверх Shift+Page Ор 
до следующего слова Ctri+Shift+— 

до предыдущего слова Ctrl+Shift+— 


Расширение выделения до: 

конца строки Shift+End 

начала строки Shift+Home 

соответствующей круглой скобки слева Ctri+Shift+[ 

соответствующей круглой скобки справа Ctri+Shift+] 

Перемещение курсора к другому концу 

выделения фрагмента ` Alt+Enter 
Кроме стандартных средств редактирования Cut (Вырезать), Copy (Ско- 
пировать) и Paste (Вставить), редактор Visual LISP располагает средства- 
ми перемещения текста внутри окна редактирования. Чтобы воспользо- 
ваться этими средствами, необходимо: 

° подсветить (выделить) текст, который надо переместить; 

° щелкнуть мышкой в любом месте внутри текста и, удерживая клави- 

IY, переместить мышку, а с ней и текст в нужное место; 

° отпустить клавишу мышки. 

Для копирования текста необходимо перетащить его с помощью мышки 
при нажатой клавише Ctrl. 

Выбранный текст можно скопировать в новый файл. Для этого необхо- 
димо нажать комбинацию клавиш Ctrl +E, выбрать пункт Save Block As... 
(Сохранить выделенный блок как). На экране появится диалоговое окно 
сохранения файла. 
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Visual LISP использует буфер обмена Windows для операций вырезания 
Cut (Вырезать) и копирования Copy (Копировать). Поэтому текст можно 
обменивать с любыми другими приложениями Windows, которые поддер- 
живают эти функции. Кроме того, у пользователя есть возможность копи- 
ровать и вставлять текст между окнами текстового редактора и окном кон- 
соли Visual LISP 

Структурную запись программы лучше всего проводить с помощью 
форматера Visual LISP 

Чтобы выровнять выбранные строки программы, нажмите клавишу Tab 
или комбинацию клавиш СЫ1+Е, выберите размер отступа. Visual LISP 
вставляет символ табуляции в начале каждой строки, которую вы выбрали. 

Величиной отступа символа табуляции можно управлять, если выбрать 
пункт Configure Current (Текущая конфигурация) всплывающего меню 
Window Attributes (Параметры окна) падающего меню Tools (Инструмен- 
ты) и в появившемся диалоговом окне Window attributes (Параметры 
окна) (рис. 2.14.) установить значение Tab Width (Ширина отступа). 

Редактор текста Visual LISP обеспечивает эффективный поиск элемен- 
та текста. Для того чтобы начать поиск, выберите пункт Find (Найти) из 
падающего меню Search (Поиск) или щелкните по кнопке Find — кнопке 
с изображением бинокля, либо нажмите комбинацию клавиш Ctrl+F. На 
экране появится диалоговое окно Find (Найти) (рис. 2.15). 

В текстовом поле Find What: (Найти что) наберите с клавиатуры стро- 
ку символов, которую предстоит найти. 


(I Window attnbutes 


t Colored text Window text 


ИГ Тгалералем Е FG Ri ECEN || 


*ч >> "т --39 


Г. Transparent ВС " 5 - M; Lexical Colors 


4 E Teb width EEEN 


o [Let кент БЫТУ 


у — A s 
r ху ь? АТ: ki > = g 


Рис. 2.14. Диологовое окно параметров окна 
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mae 


p Find What. ` [DEFUN JL 


орт + e, e — — 


H Search ~ r Direction = 


ГС Cirehtselection. @ Down C Up 


У Current file | Г’ Match whole Word only 
C, Find in project. I~: Match Case 


C Find in files Г Mark instances * - 


Рис. 2.15. Диалоговое окно поиска 


Можно предварительно в окне текстового редактора Visual LISP выде- 
лить фрагмент текста, который предстоит найти, и после этого начать по- 
нск. Тогда в диалоговом окне поиска Find (Найти) выделенный текст бу- 
дет помещен в поле Find What: (Найти что) автоматически. 

Для ограничения области поиска используется переключатель Search 
(Поиск). Он предоставляет несколько вариантов поиска, из которых MOX- 
но выбрать только один: 

e Current selection (Текущий выбор) — Visual LISP обеспечивает поиск 
только в выделенном тексте, который находится в окне текстового ре- 
дактора; 

e Current file (Текущий файл) — обеспечивает поиск только в текущем 
файле; 

e Find in project (Найти в проекте) — Visual LISP запрашивает имя npo- 
екта, чтобы осуществлять поиск во всех его файлах. Результаты поис- 
ка отображаются в новом окне; 

° Find in files (Найти в файлах) — Visual LISP позволяет определить Ka- 
талог (папку) Window для поиска текста. Если задать поиск во всех 
подкаталогах указанного каталога, то Visual LISP просмотрит все pai- 
лы и представит результаты поиска. 

Для ограничения направления поиска используется переключатель 
Direction (Направление). Он предоставляет два варианта поиска, из KOTO- 
рых можно выбрать только один: 

e Down — от позиции курсора вниз к концу файла; 

e Ор — от позиции курсора вверх к началу файла. 

Параметры поиска могут быть заданы с помощью следующих флажков: 

e Match whole Word only (Соответствовать только целому слову). Если 
флажок включен, Visual LISP обеспечивает поиск только слов, HANI- 
санных полностью. Когда, например, осуществляется поиск слова 


4 — 1278 


78 Основы программирования 


“ENT”, то найденное в тексте слово "Enter" Visual LISP не рассматри- 
вает как результат поиска. Однако, если флажок Match whole Word 
only не включен, Visual LISP считает, что ENT является частью слова 
“Enter”, и рассматривает Enter в качестве результата поиска; 

Match Case ( Соответствовать регистру). Visual LISP обеспечивает no- 
иск текста, полностью совпадающего с заданным. Если, например, осу- 
ществляется поиск слова “ENT” и флажок Match Case включен, то сло- 
во “ent” не рассматривается в качестве результата поиска. Когда флажок 
не включен, то результатом поиска может быть также слово “ent”; 

e Mark instances (Метить образцы). Закладка, установленная в тексте, 
будет добавлена к Mark Ring (Кольцо закладок), что позволит быстро 
вернуться к этой закладке в дальнейшем. Для начала поиска щелкни- 
те по кнопке Find (Найти). Чтобы продолжить поиск, используйте 
функциональную клавишу F3. Для прекращения поиска нажмите 
кнопку Cancel (Отменить). 

Visual LISP сохраняет каждую строку поиска, которая введена в тексто- 

вом поле Find What: (Найти что) (рис. 2.16). 

Чтобы повторить поиск строки, введенной в поле 
Find What ранее, достаточно выбрать необходимую 
строку в раскрывающемся списке Find What. Для это- 
го щелкните по стрелке, подсветите нужную строку 
и ‘нажмите кнопку Find (Найти). 

Падающее меню Search (Поиск) содержит пункт Рис. 2.16. 
Replace (Заменить), который позволяет заменить  Раскрывающийся 
текст поиска на определенную вами текстовую строку CCOOK Строк поиско 
(рис. 2.17). 

Диалоговое окно поиска и замены Find очень похоже на диалоговое 
окно поиска (см. рис. 2.15). Отличие между ними состоит в том, что окно 


vY 
— 


Ета ж] 
Find What ENT = ЕЯ 
| Replace with: | E ИНН |” Replace | 
— Search - z 
: |© Replace AIl ` | 
C Curent selection |. и 
Г’ Match whole Word оу ^^^ Г Сале i] 


‚| ©. СитепИИе 
SESAN Match Case i i: 


Рис. 2.17. Диалоговое окно поиска и замены Find 
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поиска и замены Find содержит дополнительное текстовое поле Replace 
with: (Заменить на). В этом поле вводится текст, на который Visual LISP 
должен заменить заданный текст. Для выполнения поиска из диалогового 
окна поиска и замены Find можно воспользоваться следующими кнопками: 

e Find (Найти) — нахождение следующего местонахождения строки 
поиска: | 

e Replace (Заменить) — замена найденного текста на строку замены; 

e Replace АП (Заменить все) — замена всех найденных строк поиска на 
строку замены; 

e Cancel (Отменить) — отмена замены. Если какую-либо из найденных 
строк поиска вы не хотите заменять, щелкните по кнопке Find (Най- 
ти), чтобы продолжить поиск следующего местонахождения текста, 
или Cancel (Отменить), чтобы закончить поиск. 

Visual LISP имеет специальное средство для пошагового перемещения 
по тексту — набор закладок (Bookmarks). Это средство (до 32 закладок 
в каждом окне) помогает быстро перемещаться по тексту в редакторе, кон- 
соли и других текстовых окнах. Каждое окно поддерживает свой собствен- 
ный набор закладок, а инструментальные средства передвижения по за- 
кладкам допускают переход к закладке внутри каждого окна независимо 
от других окон. Набор закладок внутри окна известен как кольцо (RING) 
закладок. Можно шагать по кольцу (набору) закладок вперед или назад 
H в конечном счете вернуться к начальной закладке. 

Всякий раз при переходе от закладки к закладке Visual LISP временно 
удаляет закладку, к которой производится переход, и помещает в начало 
строки курсор. Чтобы установить/удалить закладку, переместите курсор 
в строку установки/удаления закладки. Щелкните по кнопке Toggle 
bookmark (Установить/удалить закладку) — кнопке с синим флагом на 
инструментальной панели Search (Поиск) или нажмите комбинацию 
клавиш АЁ+. (точка). 

Если использовать пункт Find (Найти) для поиска текста, закладки MO- 
гут быть выставлены автоматически. 

Когда текущее окно содержит закладки, вы можете: 

переместить курсор в строку, содержащую предыдущую закладку 
в кольце. Для этого необходимо выбрать пункт Previous Bookmarks 
(Предыдущие закладки) из всплывающего меню Bookmarks (Заклад- 
ки) падающего меню Search (Поиск) или нажать кнопку Previous 
Bookmarks (Предыдущие закладки) на инструментальной панели. 
Можно также нажать комбинацию клавиш СЫ+, (запятая); 

переместить курсор в строку, содержащую следующую закладку 
в кольце. Для этого выберите пункт Next Bookmarks (Следующие 
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закладки) из всплывающего меню Bookmarks (Закладки) падающего 
меню Search (Поиск) или нажмите кнопку Next Bookmarks (Следую- 
щие закладки) на инструментальной панели. Можно также нажать 
комбинацию клавиш Ctri+. (точка). 

Можно выбирать текст и между двумя закладками: 

° чтобы выбрать текст между текущим расположением закладки и Mpe- 
дыдущим, необходимо нажать комбинацию клавиш CtrÌ+Shift+, (за- 
пятая): 

° текст между текущим расположением закладки и следующим можно 
выбрать, если нажать комбинацию клавиш Ctrl+Shift+. (точка). 

Для удаления одиночной закладки переместите курсор в строку, в KOTO- 
рой расположена закладка. Щелкните по кнопке Toggle Bookmark (Уста- 
новить/удалить закладку) на инструментальной панели Search (Поиск) 
или нажмите комбинацию клавиш А[+. (точка). Пункт Toggle Bookmark 
работает как переключатель «вкл/выкл». Если вы выбираете пункт, когда 
закладка установлена, Toggle Bookmark выключает ее. Воспользуйтесь 
этой командой, когда нет закладок, и Toggle Bookmark (Установить/уда- 
лить закладку) вставит закладку. 

Для удаления всех закладок в вашей программе нажмите на инструмен- 
тальной панели кнопку Clear АЙ Bookmark (Очистить все закладки) или 
выберите пункт Clear All (Очистить все) из всплывающего меню 
Bookmarks (Закладки) падающего меню Search (Поиск). 

Visual LISP имеет специальное средство для структурирования (форма- 
тирования) программ — форматер. Форматер Visual LISP преобразует Bhl- 
ражения AutoLISP в красивый удобочитаемый вид. 

Для форматирования всего текста в активном окне редактора выберите 
пункт Format AutoLISP in Editor (Отформатировать программу в актив- 
ном окне редактора) падающего меню Tools (Инструменты) главного 
меню Visual LISP или щелкните по кнопке Format Edit Window (Отфор- 
матировать программу в активном окне редактора) на инструментальной 
панели Tools (Инструменты). 

Для форматирования части программы выделите фрагмент программы 
и выберите пункт Format AutoLISP падающего меню Tools (Инструмен- 
ты) или щелкните по кнопке Format Selection (Форматирование выделен- 
HOTO фрагмента) инструментальной панели Tools (Инструменты). Если 
выделенный фрагмент выражений AutoLISP имеет ошибки, форматер вы- 


даст сообщение об ошибке. 
Допустим, вы ввели в окне текстового редактора выражение AutoLISP. 


(SETQ А 10 B 20 C 40 
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Но B этом выражении вы случайно забыли поставить закрывающую круг- 
лую скобку. Затем вы выделили это выражение и запустили процедуру фор- 
матирования, щелкнув по кнопке Format Selection (Форматирование вы- 
деленного фрагмента). Появится окно с сообщением и вопросом (рис. 2.18). 


Question 


Е (3) ‘Unbalanced opening bracket found. Add closing brackets?- - 


Рис. 2.18. Сообщение формотера 


Допустим, в ответ на сообщение и вопрос Unbalanced opening bracket 
found. Add closing brackets? (Обнаружена несбалансированная открыва- 
ющая круглая скобка. Добавить закрывающую круглую скобку?) вы щелк- 
нули по кнопке Уе$ (Да), появится окно с таким подтверждением: 

1 closing brackets were added while formatting (1 закрывающая круглая 
скобка была добавлена в процессе форматирования). 

Следует щелкнуть по кнопке ОК. Появится результат форматирования 
введенного и выделенного выражения: 

(SETQ А 10 
В 20 
С 40} 


Если хотите установить круглые скобки самостоятельно, нажмите кноп- 
ку № (Нет). 

Форматер Visual LISP позволяет задать вид форматирования. Для это- 
го необходимо вызвать пункт AutoLISP Format Options... (Параметры 
форматирования программ AutoLISP) из всплывающего меню, а затем 
пункт Environment Options... (Параметры среды) из падающего меню 
Tools (Инструменты). На экране появится диалоговое окно AutoLISP 
Format options (Параметры форматирования AutoLISP) (рис. 2.19). 

Существуют два основных стиля форматирования программ: 

° однострочный; 

e многострочный — широкий, узкий или в столбец. 

В соответствии с однострочным стилем все элементы программы разме- 
щаются в одной строке и разделяются одиночным пробелом. 

Согласно многострочному широкому стилю первый элемент размеща- 
ется в той же строке, что и имя функции, а остальные элементы выравни- 
ваются в столбце под первым элементом. 
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\$ AutoLISP Format options E4 
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И ИЕН ТЕЧЕТ: 


Рис. 2.19. Диалоговое окно выбора стиля форматирования 


Многострочный узкий стиль предполагает размещение первого элемен- 
та в следующей строке после имени функции и выравнивание остальных 
элементов в столбце под первым элементом. Смещение позиции первого 
элемента относительно исходной позиции выражения управляется с помо- 
шью параметра Narrow style indentation (Суженный стиль выравнивания). 

Многострочный стиль в столбец — это стиль, в котором все элементы 
размещены в столбец. 

В дополнение к основным стилям форматирования можно устанавлн- 
вать и другие параметры форматирования. Рассмотрим различные режи- 
мы управления позицией расположения круглой заключительной скобки 
для многострочных стилей форматирования, из которых может быть вы- 
бран только один: 

e Close at the same line (Закрыть на той же самой строке) — закрытие 

круглой скобкой на последней строке каждого выражения; 

e Close at the new line with inner indentation (Закрыть в новой строке ' 

с внутренним выравниванием) — закрытие круглой скобки па следую- 
щей строке после последней строки каждого выражения с внутренним 
выравниванием; 

e Close at the new line with öter indentation (Закрыть в новой строке 

свнешним отступом) — закрытие круглой скобки на следующей (после 
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последней строки каждого выражения) строке с внешним выравнива- 
нием. | | 

Текстовое поле Form-closing comment prefix (Завершающая форма KOM- 
ментария). позволяет добавить комментарий после выражения и исполь- 
зуется только с последними двумя режимами. Formatter вставляет KOM- 
ментарий вида: | 

‚ _ ЕМО OF <имя функции> 

Включенный флажок Preserve existing line breaks (Сохранить суще- 
ствующие разрывы строк) позволяет сохранить разрыв строк. 

Флажок Split comments (Разбить комментарии) позволяет разбить 
длинный комментарий, который выходит за пределы правого поля. 

Форматер Visual LISP распознает пять видов комментариев и позицио- 
нирует их следующим образом: 

Я Встроенный комментарий |; — включается в любое место програм- 
мы, задается внутри символов; |... |; 

; Комментарий после точки с запятой - вставляется в конец текущей 
строки; | 

; Комментарий в текущем ряду — пишется, начиная с новой строки 
с текущей позиции предыдущего выражения, строки выравниваются по 
последней строке программы. 
;;; Заголовок или комментарий без отступа. 
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; _ Функционально заключительный комментарий — комментарий 
в конце последнего выражения. 
Рассмотрим различные виды комментариев на следующем примере. 


Исходный текст: 


(DEFUN LIST123 (Хх) 
; | встроенный комментарий |; 
(LIST 1 2 3} ; комментарий после точки с запятой 
;; комментарий в текущем ряду 
;;; заголовок или комментарий без отступа 
) ; _ Функционально заключительный комментарий 
Отформатированный текст: 
{ DEFUN 11571123 (Х);| встроенный комментарий |; 
(LIST 1 2 3) ; комментарий после точки с запятой 
;; комментарий в текущем ряду 
;;; заголовок или комментарий с позиции начального выражения 
); _ функционально заключительный комментарий 


Чтобы сохранить установки параметров форматтера Visual LISP выбе- 
рите пункт Save Settings (Сохранить установки) из падающего меню Tools 
(Инструменты) интегрированной среды Visual LISP. Текущие установки 
можно сохранить также в активном текстовом окне редактора Visual LISP 
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Выберите пункт Environment options (Параметры среды) падающего меню 
Tools (Инструменты), а затем пункт AutoLISP Format options (Парамет- 
ры форматирования AutoLISP) из всплывающего меню. | 

Размер окна и табуляция соответствуют установкам Windows. Установ- 
ки можно изменить, если выбрать пункт Window Attributes (Атрибуты 
окна) падающего меню Tools, а затем пункт Configure Current (Текущая 
конфигурация) всплывающего меню. Форматер доступен только из окна 
редактора Visual LISP 

Одним из основных преимуществ Visual LISP является наличие различ- 
ных средств отладки. Данные средства позволяют следить за тем, что про- 
исходит во время выполнения программы. При этом можно выбрать лю- 
бой ее фрагмент. Не менее важно и то, что Visual LISP обеспечивает ряд 
возможностей для обнаружения ошибок прежде, чем программа начнет 
ВЫПОЛНЯТЬСЯ. 

По сравнению с другими языками программирования AutoLISP исполь- 
зует круглые скобки наиболее часто. Как уже отмечалось, одна из самых 
распространенных синтаксических ошибок в AutoLISP — несоответствие 
количества открытых круглых скобок количеству закрытых. Visual LISP 
располагает рядом инструментальных средств, необходимых для обнару- 
жения несоответствия между круглыми скобками. 

Форматер Visual LISP осуществляет поиск незакрытых скобок во вре- 
мя форматирования программы. Он может добавить круглые скобки там, 
где считает нужным, как правило, в конце программы. 

Чтобы определить, правильно ли установлены круглые скобки, необхо- 
димо проверить структуру вашей программы. Для поиска парных круглых 
скобок можно использовать один из пунктов всплывающего меню пункта 
Parentheses Matching (Соответствие круглых скобок) падающего меню 
Edit (Редактирование): 

e Match Forward (СЫ1+]) (Переместить курсор в конец выражения) — 
перемещает курсор в позицию за соответствующей закрывающей 
круглой скобкой, которая соответствует открывающей круглой скоб- 
ке. Если близлежащего соответствия нет, курсор перемещается на 
один шаг вверх в иерархии вложения функций. 

e Match Backward (Си1+|[) (Переместить курсор в начало выраже- 
ния) — перемещает курсор в позицию соответствующей открывающей 
круглой скобки. Если такой нет, курсор перемещается на один шаг 
вверх в иерархии вложения функций. 

e Select Forward (Ctrl+Shift+]) (Переместить курсор в конец выраже- 
ния и выделить его) — перемещает курсор так же, как и команда Match 
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Forward, а кроме того, выделяет весь текст между начальной и конеч- 
НОЙ ПОЗИЦИЯМИ. 

e Select Backward (Ctrl+Shift+[) (Переместить курсор в начало выра- 
жения и выделить его) — перемещает курсор так же, как и команда 
_ Match Backward, и, кроме того, выделяет весь текст между начальной 
и конечной позициями. 

Если выбрать пункт Check text in Editor Поверить синтаксис текста) 
падающего меню Tools (Инструменты) главного меню Visual LISP, можно 
провести дополнительную проверку синтаксиса программы. 

Для проверки синтаксиса фрагмента программы используйте пункт 
Check Selection (Проверка синтаксиса выделенного текста) из падающе- 
го меню Tools. 

Чтобы выполнить программу из окна текстового редактора, выберите 
пункт Load text in editor (Загрузить текст из редактора) падающего меню 
Tools главного меню Visual LISP или нажмите кнопку Load active edit 
window (Загрузить текст из активного окна редактора) на инструменталь- 
ной панели Tools. На экране появится сообщение о загрузке программы на 
КОНСОЛЬ. 

Чтобы выполнить программу, введите имя функции в круглых скобках. 
Например: 

_1$ (PRIVET) 

Вы можете выполнить только часть программы. Для этого необходимо 
выделить нужную часть программы, выбрать пункт Load Selection (За- 
грузить выделенный текст) падающего меню Tools (Инструменты). 

Рассмотрим процесс загрузки файлов с расширением LSP в системе 
AutoCAD. Создайте файл, например, PRIVETW.LSP и наберите в нем сле- 
дующую программу: 

(DEFUN PRIVET (IMY) 
(COMMAND 
"STYLE" "" "TIMES NEW ROMAN CYR" "60" "1" "пп вн ne 
"TEXT" "20,1500" "0" (STRCAT "ДОРОГОЙ " IMY " 111") 
"TEXT" "3,100" "17" " АВТОР ВАС ПРИВЕТСТВУЕТ " 
"TEXT" "250,50" "0" " УСПЕХА ВАМ 1!!!" 
"ZOOM" "А") ; Текст приветствия будет размещен во весь экран 
| 

(РАТУЕТ "Пользователь" } | | 

Командная строка AutoCAD для загрузки файла будет выглядеть сле- 
дующим образом: 

COMMAND: (LOAD "С: \РЕТУЕТИ" ) 
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Загрузить AutoLISP. ADS. и ARX Файлы xi 
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Рис. 2.20. Диалоговое окно загрузки файлов 


Быгрузить 


Выход | Помо-ць | 


Ждите ответ на экране монитора. Успеха Вам!!! 

Файл PRIVETW.LSP можно ввести также, если использовать диалого- 
вое окно Загрузить AutoLISP, ADS, и ARX Файлы (Load AutoLISP, ADS, 
and ARX Files) (рис. 2.20). Для этого выберите пункт Load Application... 
(Загрузить приложение) в падающем меню Tools (Инструменты). 


Выберите файл AutoLISP., ADS. or ARX [2х 
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Рис. 2.21. Окно выбора файлов 
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В открывшемся диалоговом окне включите флажок Сохранить список 
(Save LIST). В следующий раз при выборе команды Load Application... 
(Загрузить приложение) падающего меню Tools имя файла будет внесено 
в диалоговое окно загрузки файлов автоматически. 

Далее в этом диалоговом окне щелкните мышкой по кнопке Файл... 
(Е|е...), появится окно выбора файлов Выберите файл AutoLISP, ADS 
или ARX (Select AutoLISP, ADS, ог ARX File), показанное на рис. 2.21. 

Щелкните мышкой по кнопке Переход на один уровень вверх (кнопка 
со стрелкой вверх), чтобы перейти на диск С:. Найдите файл Privetw 
и дважды щелкните по нему мышкой, появятся каталоги (папки) и файлы 
на диске С:. | 

После этого на экране вновь появится диалоговое окно загрузки фай- 
лов Загрузить AutoLISP, ADS, и ARX файлы (Load AutoLISP ADS, and 
ARX Files), однако в нем уже будет файл PRIVETW. 

Щелкните по кнопке Load (Загрузить), появится окно AutoCAD с прн- 
ветствием (рис. 2.21). 


№1} AutoCAD - [Рисунок] 
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Рис. 2.22. Графическое окно системы AutoCAD 
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Со временем пользователь, как правило, нарабатывает много программ 
на языке AutoLISP. Чтобы в них ориентироваться, необходимо давать фай- 
лу такое оригинальное имя, которое соответствует содержанию програм- 
мы. Например, имя MNKV.LSP можно дать файлу, в котором разработана 
программа для статистической обработки данных методом наименьших 
квадратов. Как можно заметить, в имени программы используются началь- 
ные буквы названия метода. Скажем, программа, предназначенная для рас- 
чета сетевого вероятностного графика, может быть названа так: SETV.LSP. 

Однако. например, метод наименьших квадратов может быть предназ- 
начен для определения параметров линейного уравнения регрессии, квад- 
ратического или еще более высоких степеней. Тогда соответствующие на- 
звания файлов могут выглядеть следующим образом: MNKV_1.LSP 
ММКУ 2..5Р ММКУ М.ГЗР. 

Если, допустим, разработана программа для решения дифференциаль- 
ных уравнений методом Рунге-Кутта, то можно ее назвать так: RUNG- 
KUT.LSP. 

Желательно, чтобы число символов в названии файлов не превышало 8. 
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3.1. Параметрическое изображение плана 
объекта 


3.1.1. Постановка задачи 


Требуется разработать алгоритм параметрического изображения плана 
офиса с размещением мебели внутри него и создать соответствующую 
функцию для построения плана офиса с мебелью. Функция параметричес- 
кого изображения плана офиса должна быть представлена в таком виде: 
(CFFIS X Y LDD LD) 
где X, Y — базовая точка для изображения плана; LDD — список данных 
для изображения двери офиса следующего вида: 
' (N D2 HD), в котором N, D2 и HD - номер угла офиса, расстояние от 
угла офиса до двери и ширина двери соответственно; 
LD — список элементов офиса с размерами (мебели) 
((ХТ Y1 01 НЕ "имя" 01) (X2 Y2 D2 H2 "имя" 02) ...) 
где X1, Y1 - базовые координаты офиса или мебели; D1, H1 - длина 
и ширина офиса или мебели; 
“имя”, 01 — название мебели, угол установки ее. 
На плане должны быть представлены упрощенные изображения мебе- 
ли, ее расположение, название и размеры. 


3.1.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Сделаем набросок возможного плана офиса с мебелью (рис. 3.1). 

Как можно заметить, в эскизе плана офиса преобладают фигуры типа 
прямоугольника. Поэтому вначале рассмотрим процесс создания изобра- 
жения прямоугольника. Прямоугольник заданного размера должен быть 
расположен в заданной точке под заданным углом и содержать поясни- 
тельную надпись. В процессе создания изображения прямоугольника 
предстоит сделать следующее: | | 

e определить точки прямоугольника относительно базовой точки с за- 

данным углом наклона прямоугольника и заданными размерами; 

e сформировать изображения прямоугольника по четырем точкам; 

e определить точки начала вывода текстовой информации; 

e сформировать в прямоугольнике текстовую информацию. 

Допустим, имя этой функции будет ВОХ, а ее аргументы: 

X, У — координаты базовой точки прямоугольника; 
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Рис. 3.1. Эскиз плана офиса с мебелью 


D, H - длина и ширина прямоугольника соответственно; 
"имя" — название мебели (для офиса без имени); 
UG - угол наклона плана офиса или мебели в градусах. 


3.1.3. Разработка последовательности действий 
и комплекса функций для параметрического 
изображения плана офиса 


Для определения вершин прямоугольника используем встроенную функ- 
цию AutoLISP (POLAR <Т1> <UR> <К>), которая определяет точку T2 
путем перемещения из точки <Т1> под углом <UR> в радианах на pac- 
стояние <К>. Поскольку углы наклона мебели приводятся в градусах, 
предварительно необходимо перевести их в радианы: 


(SETQ UR (* РТ (/ UG 180.0})) 


Для того чтобы ввести текст в прямоугольнике (мебели), необходимо 
определить координаты точек ввода текста и сам текст. При этом текст 
вводится только для изображения мебели, то есть когда, например, индекс 
]>2. Этот фрагмент программы будет выглядеть следующим образом: 


‚ определение координат точек для ввода текста и сам текст 
(SETQ BTT (POLAR ВТ (+ ОВ (/ PI 2.7)) (/Н?2)) 

BTX (POLAR ВТ (+ UR (/ PI 3.7)) (/Н1.7}} 

H1 (ТТОА.Н) 

D1 (ITOA D) 

ий 

ТТТ (ТЕ (> J 2) (STRCAT D1 "*" Н1)) 

J (+J 1}) 


TE RA 


e ap p a =“ 
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; ввод текстовой информации в прямоугольник 
(COMMAND “ТЕХТ“ "C" BTT (/ D5) (+ 90 UG) TXT 
STENT ACE ВХ appr] 

Для изображения двери офиса необходимо знать координаты вершин 
(углов) плана офиса. Они определяются при первом использовании Ффунк- 
ции (ВОХ...). Остается только их запомнить. Для этого можно использо- 
вать функцию (ТЕ...) в таком внде: 


(ТЕ (= J 1) (SETQ ТТ BT ; координаты первого угла офиса 
TT2 T1 ; координаты второго угла офиса 
TT3 T2 ; координаты третьего угла офиса 
TTA Т3)} ; координаты четвертого угла офиса 


На основании вышеизложенного приведем функцию создания изобра- 
жения прямоугольника: 


(DEFUN BOX (X Y DH TXT UG) 

; определечие координат вершин BT, T1, T2, T3. 

(SETQ BT (LIST X Y) ; базовая точка офиса (мебели} 
UR (* PI (/ UG 180.0)) ; преобразование градусов в радианы 
T1 (POLAR BT (+ UR (/ PI 2)) H) 
T2 (POLAR T1 UR D} 
T3 (POLAR BT UR D) 

) 

; создание изображения прямоугольника 

(СОММАМПО "LINE" ВТ T1 T2 T3 ВТ "") | 

; определение координат углов офиса ТТ1, ТТ2, ТТЗ, TT4. 


(ТЕ (=J 1) (SETQ TT1 ВТ ; координаты первого угла офиса 
TT2 T1 ; координаты второго угла офиса 
TT3 T2 `; координаты третьего угла офиса 
TT4 Т3)) ; координаты четвертого угла офиса 


; определение координат точек для ввода текста 
(SETQ BTT (POLAR ВТ (+ UR (/ РТ 2.7)} (/ H 2)) 
BTX (POLAR BT (+ UR (/ PI 3.7)) (/ H 1.7}) 
H1 (ITOA H) 
D1 (ITOA D) 
PTT =" 
TTT (IF (> J 2) (STRCAT 01 "*" H1)) 
J (+J 1)) 
; введение текстовой информации в прямоугольник 
(СОММАМО "TEXT" "С" BTT (/ D5) (+ 90 UG) TXT 
"TEXT "CH BTA T= 2r TIT) 


) 
Далее приведем пример списка элементов офиса: 


' ((24 24 144 120 ""0) (28 28 136 112 "" 0) 
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(29 29 24 60 "Стол" 0) (80 29 30 60 "Доска" 0) 

(145 29 18 36 "Шкаф" 0) (56 48 16 24 "Кресло" 0) 

(132 100 12 18 "Стул" 206) (140 56 16 24 "Кресло" 162)) 

Первый элемент списка описывает внешнюю стену офиса, второй — 
внутреннюю стену офиса, последующие элементы — мебель офиса. 

Теперь, используя функцию (BOX X Y D H "имя" U), разработаем 
функцию под названием OFFICE для создания изображения плана офиса 
с мебелью. Отрисовку плана офиса будем проводить в цикле. Введем не- 
сколько параметров для отрисовки двери. М — номер угла офиса, вблизи 
которого расположена дверь. Нумерацию углов начнем с нижнего левого 
угла (номер 1), следовательно левый верхний угол обозначим номером 2 
ит.д. D2 — расстояние от угла офиса до двери, НО — ширина двери. Ин- 
формацию о двери офиса будем представлять также в виде списка '(М D2 
НР). Программа создания изображения офиса может выглядеть следую- 
щим образом: 


(DEFUN OFFICE (ХУ LDD LD) ; начало создания функции офис 
(ЗЕТУАВ "CMDECHO" 0) ; отключение эха команд 
(ЗЕТУАВ "ВЬТРМОПЕ" 0) ; отключение изображения маркера 
(COMMAND "LIMITS" "0,0" "192,168" "ZOOM" "А") 
(SETQ М (NTH 0 LDD) ; номер угла отсчета двери 
02 (NTH 1 LDD) ; расстояние от двери до угла 
HD (NTH 2 LDD})} ; ширина двери 
(SETQ 1} 


; цикл создания изображения плана офиса и мебели в нем 
(FOREACH EL LD 


(SETQ X (NTH 0 EL} ; координата по оси x 
У (NTH 1 EL) ; координата по оси y 
D (NTH 2 EL) ; длина офиса (мебели) 
H (NTH 3 EL) ; ширина офиса (мебели) 
TXT (NTH 4 EL) ; название мебели 
U (NTH 5 EL)) ; угол установки мебели, градусы 
(ТЕ (EQ J 1) (SETQ X1 X)) 
(IF (EQ J 2) (SETQ НО {- X X1))) ; толщина стены офиса 
(BOX X Y D H TXT U) ; изображение офиса (мебели) 


) 


Далее создадим фрагмент программы для изображения двери офиса. 
Для начала определим координаты расположения точек двери с учетом 
различного местоположения двери и привязкой ее к конкретному углу 
офиса (М). Допустим, дверь расположена в левой стене офиса. Тогда ее 
местоположение можно определить путем перемещения вверх от первого 
угла (левого нижнего под М = 1) на заданное расстояние D2, 
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‚ определение координат расположения точек двери 

(POLAR ТТ1 (/ PI 2} D2) 

(POLAR TR1 (/ PI 2) HD) 

(POLAR TR1 0 HO) 

(POLAR TR2 0 НО)} } 

(POLAR TT2 0 D2) 

(POLAR TR1 0 HD) 

(POLAR TR1 (* (/ 32.0) РТ) HO) 
(POLAR TR2 (* (/ 32.0) РТ) HO))) 
(POLAR TT3 (* (/ 3 2.0) PI) D2) 
(POLAR TR1 (* (/ 3 2.0) РТ) HD) 
(POLAR TR1 PI НО) 

(POLAR TR2 РТ НО) }} 

(POLAR ТТ4 РТ D2) 

(POLAR TR1 РТ HD) 

(POLAR TR1 (/ PI 2) HO) 

(POLAR TR2 (/ PI 2) HO)}))) 


(COND ({(=N1) (SETQ TR1 
TR2 
TP1 
TP2 
((= N2) (SETQ TR1 
TR2 
ТР1 
ТР2 
((=№3) (SETQ ТВ1 
ТК2 
ТР1 
ТР2 
((= N4) (SETQ TR1 
TR2 
TP1 
TP2 
(SETQ TR3 
; TE :ие двери 
(COMMAND "BREAK" TR1 TR2 
"BREAK" TP1 TP2 
“LINE” TP1 ТВ] "" 
"LINE" ТР2 TR2 "" 
“LINE” TP1 ТЕЗ "" 


"АВС? ТЕЗ "END" TP2 TR?) г 


`ъо -` g = e kadi J 


=o 


(POLAR TP1 (- (/ РТА) (* (/ PI2) (-N1))) Но} } 


удаление части стены офиса 
удаление части стены офиса 
изображение торца стен офиса 
изображение торца стен офиса 
изображение открытой двери 
изображение следа двери 


В окончательном виде программа создания параметрического изображе- 
ния плана офиса представлена ниже. 


3.1.4. Программа (функция) параметрического 


изображения плана офиса 


. kkiřkkkřžřžřkkkkkitkkkěkkkkkkkkkkkkkkkkkkkkkkkkěkkkkěkkkkkkkěkkkkkěkkkkkkkkkkkkkxk 


(OFFICE ХУ LDD LD) - функция параметрического построения 


плана офиса 


X,Y - базовая точка для изображения плана (X Y) 
LDD - список элементов для изображения двери офиса ` 


' (N D2 HD) 
; N - номер угла офиса 


; 
; 
; 
; Аргументы Функции: 
; 
; 
; 


; 02 - рабстояние от угла офиса до двери 


; HD - ширина двери 


Ро 
f 
s 
г 


LD - список элементов офиса с размерами (мебели) 
( (X1 Y1 01 H1 "имя" 01) (X2 Y2 D2 H2 "имя" 02)...) 


-з 


e 
i 
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Х1, Y1 - базовые координаты офиса или мебели 

D1, H1 - длина и ширина офиса или мебели Т1 

"имя", 01 - название мебели, угол ее.установки 

{BOX X Y DH "mma" 0} - функция изображения мебели (плана) 


. X,Y - базовые координаты, D - длина, H - ширина, "имя", 


U - название и угол установки плана офиса или мебели 
Пример: вызова функции (OFFICE ВТ LD) 

(OFFICE 24 24 '((24 24 144 120 "" "") (28 28 136 112 
tn ии) (29 29 24 6U "Стол" 


. kkkkkkkkkžřžáýákkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk*kkkxk 


(DEFUN BOX (X Y D H TXT UG) 


) 


; определение координат вершин прямоугольника 


(SETQ ВТ (LIST ХУ) '; базовая точка офиса (мебели) 
UR (* РТ (/ UG 180.0) } ; греобразование градусов в радианы 
T1 (POLAR ВТ (+ UR (/ PI 2)) H) 
T2 (POLAR T1 UR D} 
T3 (POLAR BT UR D) 
) 
; создание изображения прямоугольника 
(COMMAND "LINE" ВТ T1 T2 T3 ВТ "") 


(ТЕ (=J 1} (SETQ TT1 BT ; координаты первого угла офиса 
TT2 T1 ; координаты второго угла офиса 
TT3 T2 ; координаты третьего угла офиса 
TT4 ТЗ) ; координаты четвертого угла офиса 


) 
; определение координат точек для ввода текста 
(SETQ BTT (POLAR ВТ (+ UR (/ РТ 2.71}) (/Н2)}) 
BTX (POLAR ВТ (+ UR (/ PI 3.7)) {/Н1.7)) 
H1 (ТТОА H) 
01 (ITOA D) 
ppp an 
TTT (IF (> J 2) (STRCAT D1 "*" H1}) 
J (+91) 
) | 
; введение текстовой информации в прямоугольник 
(COMMAND "ТЕХТ" "С" BTT (/ D5) (+ 90 UG) TXT 
PRRP Вы BTX "1 wa TTT) 


(DEFUN OFFICE (X Y LDD LD) | ; создание плана офиса 
({ЗЕТУАВ "СМОЕСНО" 0) ; отключение эха команд 
(ЗЕТУАВ "ВЬТРМОШОЕ" 0) ‚ ; отключение изображения маркера 
(COMMAND "LIMITS" "0,0" "192,168" "ZOOM" "А"} 
(ЗЕТО М (NTH 0 LDD) | ; ‘номер угла отсчета двери 


02 (NTH 1 LDD) | ; расстояние от двери до угла 


3 IA A A T a 
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Но (NTH 2 LDD)) l ; ширина двери 

(SENJ 1) | 
; цикл изображения плана офиса и мебели в нем 
(FOREACH EL LD 

(SETQ X (NTH 0 EL) 

Y (NTH 1 EL) 

D (NTH 2 EL) 

H (NTH 3 EL) 

TXT (NTH 4 EL) 

U (NTH 5 Е) ) 
IF (EQ J 1) (SETQ X1 X)) 
ТЕ (EQ J 2) (SETQ НО (- X X1))) ; толщина стены офиса 
FOX X Y D H TXT 0) ; изображение офиса (мебели) 


; координата по оси X 

; координата по оси У 

; длина офиса (мебели} 

; ширина офиса (мебели) 

название мебели 

; угол установки мебели, градусы 


ъо “a æ% ~ % 


; сгределение координат расположения точек двери 
(COND ((=№1) (SETQ TR1 (POLAR ТТТ (/ РТ 2) D2) 
TR2 (POLAR ТВ1 (/ PI 2) НО) 
TP1 (POLAR TR1 0 HO) 
TP2 (POLAR TR2 0 HO))) 
((= N2) (SETQ TR1 (POLAR TT2 0 D2) 
TR2 (POLAR TR1 0 HD) 
TP1 (POLAR TR1 (* (/ 32.0) PI) НО) 
TP2 (POLAR TR2 (* (/ 32.0) РТ) НО))) 
R1 (POLAR TT3 (* (/ 3 2.0) PI) D2) 
2 (POLAR TR1 (* (/ 32.0) РТ) НО} 
1 (POLAR TR1 PI НО) 
P2 (POLAR TR2 РТ HO))) 
(POLAR TT4 PI D2) 
R2 (POLAR TR1 PI HD) 
ТР1 (POLAR TR1 (/ PI 2) HO) 
TP2 (POLAR TR2 (/ PI 2) НО)))) 
(SETO TR3 (POLAR TP1 (- (/ РТА) (* (/ PI2) (-N1))) HD)}) 
; изображение двери 
(COMMAND "BREAK" ТВ1 TR2 
"BREAK" ТР1 TP2 — 
"LINE" ТР1 ТВ: "" 


((= N3) (SETQ 


((= N4) (SETQ 


ее бе 
T 
þe 


; удаление части стенки офиса 
; удаление части стенки офиса 
соединение кончиков стен офиса 
"LINE" ТР2 TR2 "” соединение кончиков стен офиса 
"LINE" ТР1 ТЕЗ "" изображение открытой двери 
"ARC" ТЕЗ "END" ТР2 TR2) ; изображение следа двери 
) | 
(OFFICE 24 24 '(3 10 30) '’((24 24 144 120 "" 0) (28 28 136 112 "" 0) (29 29 
24 60 "Стол" 0) (80 29 30 60 "Доска" 0) (145 29 18 36 "Шкаф" 0) (56 48 16 24 
“Кресло” 0) (132 100 12 18 "Стул" 206} (140 56 16 24 "Кресло" 162})} 


w ò ъФ e `` 


ъь 
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Рис. 3.2. Иоброжение плана офиса функцией [OFFICE ...] 


После загрузки программы и ее выполнения будет создано изображение 
плана офиса с мебелью в графическом окне AutoCAD (рис. 3.2). 


3.2. Создание параметрического изображения. 
многоступенчатых объектов 


3.2.1. Постановка задачи 


Создать различные функции на AutoLISP для построения изображения 
многоступенчатого объекта (колонны, ракеты, вала и т. д.) с заданным чис- 
лом ступеней — М и заданными размерами каждой ступени: ширина (диа- 
метр) ступени — D; длина ступени - L. 


3.2.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Вначале подготовим эскиз простейшего трехступенчатого объекта 
(рис. 3.3) и постараемся выявить особенности создания его изображения. 

Изображение трехступенчатого объекта можно выполнить различными 
способами, например, отобразить первую ступень объекта, затем вторую 
и T. д. или нарисовать общий контур объекта, затем четко выделить ступе- 
ни. Можно начать рисование слева, справа, снизу, сверху... 


Выделим некоторые особенности прорисовки многоступенчатого. 


объекта: 
° во-первых, желательно рисовать объект таким образом, чтобы BILO- 
следствии не пришлось прорисовывать один и тот же элемент дважды: 
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T1 T2 


D1 


T4 


L3 
Рис. 3.3. Трехступенчатый объект 


° во-вторых, следует выбрать такую технологию прорисовки объекта, 
чтобы ее можно было использовать при прорисовке объекта с любым 
числом ступеней. 

Логичнее начать прорисовку объекта слева направо относительно неко- 
торой базовой точки (ВТ), например, лежащей на левом торце объекта на 
осевой линии (рис. 3.3). 

Из анализируемого чертежа объекта видно, что первую его ступень MOX- 
но изобразить ломаной линией, проходящей через четыре точки, принад- 
лежащие первой ступени: T1, T2, T3, T4. Координаты этих точек легко 
определить, если известны координаты базовой точки — ВТ, ширина (дна- 
метр) объекта — D и длина первой ступени - Г. 


3.2.3. Разработка последовательности действий 
и комплекса функций для параметрического 
изображения многоступенчатого объекта 


Для создания изображения любой ступени достаточно знать базовую точ- 
ку ступени объекта, размеры ступени и уметь определять координаты то- 
чек каждой ступени объекта. Координаты следующей базовой точки сту- 
пени объекта можно найти путем перемещения от базовой точки 
предыдущей ступени объекта на величину L, равную длине ступени объ- 
екта, и т.д. | 
Координаты точек ступени объекта можно определить, если перемес- 
титься, например, от базовой точки ступени объекта вверх и вниз на рас- 
стояние, равное половине ширины (диаметра) ступени. В результате по- 
лучим координаты точек T1 и T4. Из этих точек следует переместиться 
вдоль объекта на расстояние, равное длине ступени объекта — получим 
точки T2 и T3. Затем построим изображение ступени объекта, используя 
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функцию (COMMAND...) и команды графического редактора AutoCAD 
"РИМЕ": 
(COMMAND "PLINE" BT "W" 1 1 T1 T2 T3 T4 BT" ") 


где "РЫМЕ" — команда графического редактора для изображения поли- 
линии, проходящей через несколько точек, с заданной шириной; 

"W" (Width) — ширина. | 

Первая цифра определяет ширину линии в начале, ‘вторая цифра — 
в конце полилинии. 

С помощью цикла можно последовательно изобразить все имеющиеся 
ступени. Создание изображения многоступенчатого объекта можно осуще- 
ствить как в диалоговом режиме, так и путем обращения к функции с за- 
данными параметрами. 

Разработку программы начнем с оформления ввода исходных данных 
вдналоговом режиме. Будем запрашивать число ступеней объекта (№. 

На языке AutoLISP этот запрос будет выглядеть следующим образом: 


(SETO М (GETINT "\п Введите число ступеней объекта М = ")) 


где (GETINT...) — встроенная функция, которая обеспечивает ввод HE- 
лого числа (СЕТ INTeger — получить целое число). 

Подсказка оформляется как текстовая константа (в кавычках). Ее дли- 
на не должна превышать 100 символов. 

(SETQ...) — встроенная функция, которая обеспечивает присвоение Te- 
ременной М значения функции (СЕТИМТ...), то есть числа ступеней объек- 
та. После выполнения функции (ЗЕТО...), если, например, было введено 
число ступеней, равное 4, получим результат — значение переменной М = 4. 

Символы \п в подсказке в текстовой константе являются управляющи- 
ми — они обеспечивают перевод подсказки на новую строку. 

Имя переменной может состоять из латинских букв, цифр, специальных 
символов, кроме ().'"у; и должно начинаться с буквы. В LISP перемен- 
ные и константы называются атомами. К константам относятся числа, 
целые и вещественные; строки символов, заключенные в кавычки (тексто- 
вые константы); логические константы (T — истина, МП. — ложь). 

AutoLISP содержит множество различных функций ввода, в том числе: 

(GETREAL...) — ввод вещественного числа; 

(GETSTRING...) — ввод строки текста; 

(СЕТРОТМТ...) — ввод координат точки; 

(GETDIST...) — ввод расстояния и другие. 

Базовую точку определим с помощью координат X и у. 

(ЗЕТО XT (GETREAL "\n Введите координату X базовой точки XT = ") 
YT (GETREAL "\п Введите координату у базовой точки YT = ") 
ВТ (LIST XT УТ)) 
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Точка в AutoLISP определяется как список координат Хи Y. 

Функция (LIST ХТ УТ) задает базовую точку ВТ. Запрос базовой точки 
можно выполнить с помощью функции (СЕТРОТМТ...), которая в нашей 
задаче записывается следующим образом: 

(SETQ ВТ (СЕТРОТМТ "\п Введите базовую точку ВТ ")} 

В ответ на запрос вводятся сразу две координаты: Х иу, без пробелов 
через запятую, например, 7,15. 

Разработка цикла для ввода размеров каждой ступени и создание ее изоб- 
ражения могут быть выполнены следующими различными функциями: 

e (REPEAT <число> <выражение>...) — вычисляет выражения задан- 

ное число раз; 

e (WHILE <условие> <выражение>....) — вычисляет выражения до тех 
пор, пока выполняется заданное условие (выражение-предикат); 

e (FOREACH <переменная> <список> <выражение>....) — вычисляет 
выражения для всех элементов списка. Сначала присваивает перемен- 
ной значение первого элемента списка и вычисляет все входящие 
в функцию выражения, затем присваивает переменной значение вто- 
рого элемента списка и снова вычисляет все выражения и т. д., вклю- 
чая последний элемент списка. 

Используем в нашей задаче простейшую функцию формирования цикла 
(REPEAT <число> <выражение>....). В одном цикле будем запрашивать 
ввод ширины (диаметра) ступени объекта — D и длины ступени объекта — L: 

[REPEAT N | 

(SETQ D (GETREAL "\п Введите диаметр ступени объекта D=") 
L (СЕТВЕАЬ "\п Введите длину ступени объекта L = ") 
В (* D0.5)) 
) | 

В этом же цикле будем определять точки ступени и формировать ее 
изображение. Для определения точек используем функцию 

(POLAR <точка> <угол> <расстояние>) 

Углы в AutoLISP по умолчанию отсчитываются от горизонтальной оси 
против часовой стрелки. Определение точек одной ступени будет выгля- 
деть так: | 

(SETQ T1 (POLAR BT (/ PI 2) R) 
T2 (POLAR T1 0 L) 
T4 (POLAR BT (* 1.5 PI) R) 
T3 (POLAR T4 0 L) 

) 

Создание изображения объекта выполняется с помощью функции 
AutoLISP: 

(COMMAND "<команда АиоСА>"...[аргументы]...[ключи]...} 


Создание ‘изображения многоступенчатых объектов 121 


Для формирования полилинии используется команда "РЫМЕ", которая 
позволяет отрисовывать элементы чертежа, состоящие из прямолинейных 
н дуговых сегментов (с указанием ширины). Эта команда может иметь 
различные ключи в зависимости от режима изображения линий или ре- 
жима изображения дуг. | 

В режиме изображения линий используются следующие ключи: 

"А" (Arc) — переход в режим дуги; 

"С" (Close) — замкнуть отрезком; 

"L" (Length) — суммарная длина линий. 

В режиме изображения дуг используются следующие ключи: 

"А" (Angle) — центральный угол; 

"CE"(CEnter point) — центр дуги; 

"CL" (СГозе) — замкнуть дугой; 

"D" (Direction) — направление; 

"L" (Line) — переход в режим линий; 

"R" (Radius) - радиус дуги; 

"S" (Second point) — вторая точка; 

"О" (Undo) — отмена последней линии. 

Ключи для изменения ширины полилинии: 

"H" (Half-width) — полуширина; 

"W" (Width) — ширина линии. 

Создание изображения одной ступени будет выглядеть так: 

(COMMAND "PLINE" ВТ "М" 0.10.1 T1 T2 T3 T4 "С") 

(SETQ BT (POLAR BT 0 L)) 

Ниже представлена функция (MNOGOSTD) создания изображения 

многоступенчатого объекта в диалоговом режиме. 


3.2.4. Программа (функция) параметрического 
изображения многоступенчатого объекта в диалоговом 
режиме 


> kikk kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkřěý*kġáýkkkkkě*ėěkikkkkkkkááġik*kkk*ėžk*ėž** 


; (MNOGOSTD}) - функция создания параметрического изображения 


; многоступенчатого объекта в диалоговом режиме 
; kkkkákkkkkkkkkkkkkkkkkěkkkkkkěkkkěkákkkkkkkkkkkkkkkkkkkkkkkkáěákkákkkkkkkx 


(DEFUN MNOGOSTD () ; начало создания функции; 
'’ (ЗЕТУАВ "СМОЕСНО" 0) ‚ отключение эха команд 
(ЗЕТУАВ "BLIPMODE" 0) ; отключение изображения маркера 


(COMMAND "LIMITS" "0,0" "297,210" "ZOOM" "А") 
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Рис. 3.4. Пораметрическое изоброжение многоступенчатого объекта, 
созданное при помощи функции (ММОСО$ТО} 


TEXTSCR) ; переход на текстовый экран 
NT "\п Введите число ступеней объекта М =") 
ZTREAL “\п Введите координату х базовой точки XT = 
СЕТВЕАЬ "\п Введите координату у базовой точки УТ 
TST AT УТ] 


| 
3 
—» 


9 


И 
= 
kane aai 


(GETREAL "\п Введите диаметр ступени объекта D = ") 

(GETREAL "\п Введите длину ступени объекта Г =") 
(* D 0.5}) 

челение характерных точек ступени объекта 

(POLAR ВТ (/ PI 2) R) 

(POLAR T1 0 L) 

(POLAR BT (* 1.5 PI) R) 

(POLAR T4 0 L) ) 

(СОММАМО "PLINE" BT "W" 0.1 0.1 T1 T2 ТЗ T4 "С") 

(SETQ BT (POLAR BT 0 L))) 


; 
D 
MERRER: 


T. 
UI 


) 
(MNOGOSTD) ; вызов функции 
Для создания многоступенчатого объекта, изображенного на рис. 3.4, не- 
обходимо ввести следующие значения в ответ на соответствующие запросы: 


ведите число ступеней объекта М = 3 
зедите координату X базовой точки ХТ = 20 
ведите коосдинату у базовой точки УТ = 160 
Введите диамето ступени объекта D = 40 
Взедите длину ступени объекта Ё= 50 
Введите диаметр ступени объекта D = 50 
Рвелите длину ступени объекта L= 60 
Рведите диаметр ступени объекта D = 30 
ведите длину ступени объекта L= 70 
Разработаем теперь функцию (ММОСОЗТР...), исходные данные которой 
вводятся через аргументы функции. В качестве аргументов возьмем базовую 
точку объекта ВТ и список пар LD. Каждая пара представляет собой список 
и включает диаметр D и длину ступени объекта L. Создание изображения 
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объекта также выполним в цикле, только в качестве ве цикла исполь- 
зуем функцию (ЕОВЕАСН...). 


{FOREACH <переменная> <список> <выражение>...) 


Допустим, имя переменной ЕТ.. Вначале присвонм переменной ЕТ. значе- 
ние первой пары списка LD — параметры первой ступени объекта и вычис- 
лим все последующие выражения, входящие в функцию (ЕОВЕАСН...). 
Затем присвоим переменной Е]. значение второй пары списка и т. д., пока не 
будут исчерпаны значения, определяющие размеры всех ступеней объекта. 

Чтобы начать создание изображения ступени объекта, необходимо вы- 
делить из списка '(D L) значения ширины (днаметра) и длины ступени 
объекта. Для этого можно использовать две встроенные функции - 
(CAR...) и (СОВ...). Функция (CAR EL) выделяет из списка первый эле- 
мент — ширину (диаметр) ступени; функция (CDR EL) - хвост списка, 
то есть список без первого элемента "(Т.). Используя функцию (CAR '(Г)), 
можно выделить из списка первый элемент — длину ступени. Так как эта 
процедура очень часто используется в AutoLISP для упрощения ее записи 
применяется выражение (CADR EL), которое позволяет получить второй 
элемент списка. Диаметр и длина ступени могут быть определены как 

(SETQ D (CAR EL) 
L (CADR EL) ) 

Для получения элементов списка можно использовать и функцию 

(МТИ...), тогда размеры ступени определяются следующим образом: 
(SETQ D (NTH 0 EL) 
L (NTH 1 EL)) 

Для создания изображения многоступенчатого объекта так же, как 
и в функции (ММОСО$ТО), будем использовать команду AutoCAD 
"РЫМЕ". 


3.2.5. Программа (функция) параметрического 
изображения многоступенчатого объекта 


‚ ХУХХХХКХХХККХККККХКККККККККККК КК ККККККХККККККЕКХКККЖКХ 


; (ММОСОЗТР ВТ LD) - функция создания изображения 

; многоступенчатого объекта с заданными параметрами 
; Аргументы функции: 

; ВТ - базовая точка для изображения объекта (ХУ) 

; LD - список пар диаметров и длин ступеней объекта 

; ((D1 L1) (D2 L2)... ) 

; Пример вызова функции (MNOGOSTP BT LD} 

; (MNOGOSTP ' (10 90) '((80 70) (90 30) (70 40) (50 70))}) 


УХАККККККККККККККККККККККККККККХКККККККККККККККХХККХКККХх 


== 
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Рис. 3.5. Параметрическое изображение многоступенчатого объекта, 
созданное при помощи функции (ММОСОЗТР...] 


СЕРОМ ММОСОЗТР (БТ LD) ; начало создания функции 
(SETVAR "СМОЕСНО" 0) ; отключение эха команд 
(ЗЕТУАК "BLIPMODE" 0) ; отключение изображения маркера 


; установка формата чертежа 
(COMAND "LIMITS" "0,0" "297,210" "ZOOM" "А") 


(FOREACH EL LD ; выделение элемента из списка 
p D (CAR EL) ; диаметра ступени объекта 
L (CADR EL) ; длины ступени объекта 
R {* D0.5)) 


; определение характерных точек ступени объекта вида 
({ЗЕТО ТТ (POLAR ВТ (/ PI 2) R) 
T2 (POLAR T1 0 L) 
T2 (POLAR ВТ (* 1.5 PI) В} 
T3 (POLAR T4 0 L) ) 
; создание изображения ступени объекта 
(COMMAND "PLINE" ВТ "И" 0.10.1 T1 T2 T3 T4 "С*) 
(SETQ BT (POLAR BT 0 L))) 
) 
(ММОСОЗТР '(10 160) '((40 40) (50 50) (20 40) (30 20))) 

Результатом выполнения функции с заданными параметрами будет 
изображение многоступенчатого объекта, приведенное на рис. 3.5. 

Однако без осевой линии чертеж объекта будет неполным. Отобразить 
осевую линию можно с помощью следующих команд AutoCAD: 

(COMMAND "LAYER" "N" "OSI" "L" "CENTER" "OSI" "S" "OSI" "" 
"LINE" (POLAR BP PI 5) (POLAR ВТ 0 5}} 

Как правило, осевые линии отображают на отдельном слое. Назовем 
этот слой "ОЗ" ( по умолчанию используется слой "0"). Для управления. 
слоями существует команда "LAYER" графического редактора AutoCAD. 
Ключ М (New - новый) указывает на создание нового слоя; ключ L 
(Ltype — тип линии) определяет тип линий; ключ $ (Set — установить) 
устанавливает текущий слой. 

Чтобы задать типы линий, необходимые для получения конструкторской 
‘документации, используют следующие ключи: "CONTINUOUS" (непре- 
рывный), "CENTER" (осевой), РАЗНЫЕ (пунктирный), "ОАЗНООТ' 


(штрихпунктирный) и другие. 
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T1 


Рис. 3.6. Варианты графического изображения ступеней объекта: a) первой ступени объекта; 
6} ступени объекта, ширина (диаметр) которой больше ширины (циаметра] предыдущей ступени; 
в] ступени объекта, ширина [диаметр] которой меньше ширины [дисметра} предыдущей ступени 


ии 


Двойные кавычки "" в функции (COMMAND...) соответствуют нажа- 
тию клавиши Enter. Команда "LINE" обеспечивает рисование осевой JIH- 
нии. Начало этой линии находится в точке, заданной функцией (POLAR 
BP PI 5). Конец осевой линии задается функцией (POLAR BT 0 5). 

Напомним, что функция (POLAR...) формирует точку путем перемеще- 
ния от заданной точки в заданном направлении на заданное расстояние. 
Число 3 — это расстояние перемещения от исходной точки; ВР -— базовая 
точка, определяется перед циклом: 

(SETQ ВР BT) 

При использовании одного прохода пишущего устройства для изобра- 
жения объекта возможны три способа отрисовки его ступеней (рис. 3.6). 

Можно разработать функцию, которая обеспечит создание изображения 
многоступенчатого объекта без повторного рисования некоторых совпада- 
ющих частей. На рис. 3.6 приведены возможные варианты графического 
изображения ступеней объекта. 

Для создания изображения первой ступени объекта можно использо- 
вать выражение вида (см. рис. 3.6, а): 

(COMMAND "PLINE" ВТ "М" 1-1 T1 T2 ТЗ T4 BT" ") 

Для создания изображения ступени объекта, ширина (диаметр) которой 
больше ширины (диаметра) предыдущей ступени, можно использовать . 
выражение вида (см. рис. 3.6, 6): 

(COMMAND "PLINE" T10 "W" 1 1 T1 T2 T3 T4 T40 " ") 


126 Создание параметрических изображений объекта 


Для создания изображения ступени объекта, ширина (диаметр) которой 
меньше ширины (днаметра) предыдущей ступени, можно использовать 
выражение вида (см. рис. 3.6, в): 

(COMAND "PLINE" T1 "М" 1 1 T2 T3 T4" ") 

Внимательный анализ графических изображений, представленных на 
рис. 3.6, показывает, что каждое из них можно построить с помощью вто- 
poro варианта. В первом случае (см. рис. 3.6, а) точки T10 и T40 совпадают 
с базовой точкой ВТ, в третьем случае (см. рис. 3.6, в) точка T10 совпадает 
с точкой T1, а точка T40 - с точкой T4. Если диаметр, на концах которого 
лежат точки T10 и T40, обозначить ОО, то в первом случае его величина 
будет равна 0, во втором — диаметру предыдущей ступени, в третьем — ди- 
аметру изображаемой ступени объекта. Точки T10 и T40 определяются ny- 
тем перемещения от базовой точки строящейся ступени объекта вверх 
и вниз на величину, равную половине ширины (диаметра) ОО, соответ- 
ственно. Создание графического изображения объекта можно организо- 
вать с помощью цикла. 

Для определения характерных точек ступени объекта T10, T1, T40, T4, 
T2, ТЗ используется функция (LIST...), которая формирует точку по двум 
координатам X и Y. 

Построим изображение многоступенчатого объекта с осевой линией. 
Сформируем также список точек, через которые пройдут выносные линии 
для указания размеров ширины (диаметра) ступени. 

Функция (ММОСОЗТРМ...) удовлетворяет всем вышеперечисленным 
требованиям: 


x kikkkkkiřikkkkkkkkkkkkřkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkákáxk 
; (MNOGOSTPM X Y LD) - функция создания параметрического 

; изображения многоступенчатого объекта 

; Аргументы функции: 

; Х - координата х базовой точки ступени 

; У - координата у базовой точки ступени 

; LD - списоЕ, включающий ширину (диаметр} и длину каждой ступени 

; (STUP) - функция создания изображения ступени объекта 

; Пример вызова функции (MNOGOSTPM X У LD): 

; (ММОСОЗТРМ 50 100 '((80 70) (90 50) (70 100) (50 70))} 

( 


kkkkkáýkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkěkkkkkkkkkkkkkk 


DEFUN STUP () 
(ЗЕТО T10 (LIST X (+ Y RO)) } 
TÍ (LIST X (+УВ)) 
T40 (LIST X (- Y RO)) , 
T4 (LISTX (- YR?) 


Х (+ XL) , 
T2 (LISTX (+YR)) : 
T3 (LIST X (- YR))) 
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Рис. 3.7. Параметрическое изображение многоступенчатого 
объекта, созданное при помощи функции (ММОСОЗТЕМ...] 


(COMMAND "PLINE" T10 "И" 0.10.1 TL T2 T3 T4 T40 "") 
) $ 


(DEFUN MNOGOSTPM (X Y LD) ; Начало описания функции 
(ЗБТУАК "СМБЕСНО" 0 } ; отключение эха команд 
(ЗЕТУАК "ВЬТРМООЕ" 0) ; отключение изображения маркеров 
(COMMAND "LIMITS" "0,0" "297,210" "ZOOM" "А") ; установка поля 
(SETQ ВР {LIST (- X 5) Y) ; начало осевой линии 
LT2T3 '() ; начало создания списка 
RO 0) ; начальное значение RO 
(FOREACH EL LD ; цикл построения ступеней 
(SETQ D (CAR EL) ; определение диаметра ступени 
L (CADR EL) ; определение длины ступени 
В (/02)}) ; определение радиуса ступени 
(ТЕ (< R ВО) (SETQ ВО В)) ; определение RO для 1-й ступени 
(STUP) ; изображение 1-й ступени 
(SETQ ВО R) ; подготовка к последнему построению 
) 
(ЗЕТО BT (LIST (+ X 5) Y)) ; конец осевой линии 


(COMMAND "LAYER" "М" "OSI" "L" "СЕМТЕК" "OSI" "S" "О$Т" 
ин "I INE" BP ВТ ыы 
(PRIN1) 
) 
(MNOGOSTPM 10 60 '((30 40) (40 50) {30 30) (15 40))) ; вызов функции 


В результате выполнения функции (MNOGOSTPM...) получим n306- 
ражение многоступенчатого объекта (рис. 3.7). 


3.3. Нанесение размеров на многоступенчатом 
объекте и ввод текста 


3.3.1. Постановка задачи 


Допустим, известна функция создания изображения многоступенчатого 
объекта с заданным числом ступеней, заданнымн диаметрами и длиной 


ях 
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каждой ступени. Требуется разработать функцию, обеспечивающую нане- 
сение размеров (образмеривание) на многоступенчатом объекте. 


3.3.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Изображение размеров включает следующие составляющие: 

e размерную линию — линию со стрелками (засечками), проведенную Tia- 
раллельно измерению; 

° выносные линии — линии, обеспечивающие вынос размерной линии вне 
образмериваемого элемента объекта; 

e размерныи текст — текстовую строку, содержащую размер. 

Предположим, что размерная линия для указания размера диаметра 

должна отстоять от правой границы соответствующей ступени объекта 
на 10 ед. влево. 

Указывать размеры длины ступеней объекта будем слева направо, так, 

как показано на рис. 3.8. 

Для указания размера ширины (диаметра) ступени объекта необходимо 

определить: 

° положение размерной линии: вертикальное или горизонтальное (в па- 
шей задаче эта линия должна быть вертикальной); 

e координаты точек начала выносных линий (в нашей задаче такими 
точками для первой ступени объекта могут быть T12 и T13); 

* координаты точки, через которую пройдет размерная линия (назовем 
эту точку Т1В). Координаты данной точки можно определить, зная ко- 
ординаты точки Т12 и сместившись относительно этой точки влево по 
горизонтали на заданное число единиц. 


T21 T2R T22 


T4R T42 


Рис. 3.8. Изображение многоступенчатого объекта с размерами и обозначение точек 
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Проставить размер диаметра необходимо на каждой ступени объекта. 
Для этого можно сформировать цикл и использовать список пар точек 
правого торца каждой ступени объекта. Для объекта, представленного на 
рис. 3.8, список пар точек будет выглядеть так: 


( (T12 T13) (T22 T23) (T32 T33) (T42 743) } 


Чтобы проставить размер длины ступени объекта так же, как и диаметр 

объекта, необходимо определить: 

° положение размерной линии (в нашей задаче — горизонтальное); 

° координаты точек выносных линий (в нашей задаче первой точкой для 
всех ступеней объекта может служить базовая точка объекта BP BTO- 
рой — базовая точка следующей ступени объекта ВТ или вторая (ниж- 
няя) точка из пары точек); | 

e точку, через которую будет проходить размерная линия (назовем ее 
В). 

Для того чтобы проставить длину ступеней объекта, необходимо сфор- 

мировать цикл. 


3.3.3. Разработка последовательности действий 
и программы нанесения размеров на 
многоступенчатом объекте 


Формирование размеров многоступенчатого объекта предполагает выпол- 
нение следующих действий: 
_ + формирование цикла для указания размера диаметра ступени объекта; 

° выделение необходимой пары точек начала выносных линий из CMHC- 

ка пар точек для указания диаметра ступени; 

° выделение из пары точки начала первой выносной линии; 

° выделение из пары точки начала второй выносной линии; 

° определение точки положения размерной линии; 

e указание размера диаметра ступени объекта; 

° определение точки положения линии для указания размера длины 

ступени; 

* выделение точки начала для второй выносной линии; 

° указание размера длины первой ступени; 

e формирование цикла для указания размеров длины. 

Определим список пар точек для указания размеров. В языке AutoLISP 
есть встроенная функция создания списка (LIST...) (список, напомним,— 
это упорядоченная последовательность элементов, заключенных в круг- 
лые скобки). 

(LIST <элемент> <элемент>..) 


5 — 1278 


р. sos w T al i E l 


"y 


Cad 


^ a 
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Элементами могут быть переменные, числа, строковые и логические 
константы (их называют атомами) и списки. Элементы разделяются про- 
оелами. Например, список '(А В '(С D) Е) состоит из четырех элементов, 
где третий элемент представляет собой список из двух элементов. 

Сформируем список пар точек начала выносных линий для каждой сту- 
пени объекта и назовем этот список ГТ2ТЗ. Формирование указанного 
списка можно начать следующим образом: 

(SETO "0 
¿T3 (CONS (LIST T12 T13) LT2T3)) 

rie функция (LIST...) c создает список из двух точек T12 и T13. Функция 
(CONS...) формирует список из пар точек. 

Функция (CONS...) добавляет новый элемент в начало списка: 


Е 
т т 
ыы 


(CONS <=сзый злемент> <список>) 

В результате выполнения функции (SETQ...) переменной ЕТ2ТЗ будет 
соответствовать список вида '('(T12 Т13)). 

Список пар точек для двух ступеней объекта можно построить так 
(см. рис. 3.8): 

SETO LT2T3 (CONS (LIST T22 T23) LT2T3)) 

В начало прежнего списка добавляется список из двух точек '(Т22 T23). 
В результате переменная ГТ2ТЗ будет содержать список '('(Т22 T23) 
(T12 Т13)). 

Если следующая ступень объекта — ступень меньшей ширины (диамет- 
ра), то расширение списка будет выглядеть так (см. рис. 3.8): 

(SETQ LTŻT3 (CONS (LIST T32 T33) LT2T3)) 

Для того, чтобы формирование списка пар точек можно было осуще- 
ствить в цикле, достаточно использовать для обозначения точек вторую 
цифру (см. рис. 3.8). 

В AutoCAD имеется множество видов команд для нанесения размеров. 
Кроме того, проставить размеры можно путем установки значений управ- 
ляющих (системных) размерных переменных. С этой целью определим 
функцию (SETDIM...). 

Управляющие размерные переменные (их около 40) начинаются с букв 
DIM... (DIMENSION - размер). Почти все они имеют значения по умол- 
чанию и чтобы узнать их, достаточно набрать в командной строке 
AutoCAD команду DIM, а в строке запросов ключевое слово STATUS: 

Ccrmand: DIM 


Dim: СТАТОЗ 


Ноявится текстовое окно AutoCAD с фрагментом списка размерных пе- 
ременных и их текущими значениями (рис. 3.9). С помощью вертикальной 
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2 AutoCADo Текстовое Окно EJ 
b Edit | TENISA 


Command: dim 
Dim: status 


Alternate units selected 

Alternate unit decimal places 
Alternate unit scale factor 
Alternate tolerance decimal places 
Alternate tolerance zero suppression 
Alternate units 

Alternate unit zero suppression 
Prefix and suffix for alternate text 
Create associative dimensions 


DIMASZ 0.1800 Arrow size 
Нажмите ВВОД для продолжения: 


Рис. 3.9. Текстовое окно AutoCAD с фрагментом списка размерных 
переменных и их текущих значении 


полосы прокрутки можно просмотреть все значения размерных системных 
переменных. | 

Состояние ON/OFF означает, что размерная переменная установлена/ 
не установлена. В AutoLISP состоянию OFF соответствует значение 0, 
состоянию ОМ - 1. В нашей задаче фупкция настройки размерных nepe- 
менных (ЗЕТОИМ...) выглядит следующим образом: 


(DEFUN SETDIM) 


(RMAX) ; функция настройки размерных переменных 
(COMMAND "UNITS" "2" "0" "|" "1" "0" "N") ; система единиц 

(ЗЕТУАК "DIMTAD" 1) ; текст над размерной линией 

(ЗЕТУАВ "DIMSOXD" 1) ; текст между выносными линиями 
(ЗЕТУАВ "ОТМТТН" 0) ; текст, параллельный размерной линии 
(SETVAR "DIMDLI" (* ВМАХ 0.25)) ; отступ между линиями 

({ЗЕТУАВ "ОТМЕХЕ" (* ВМАХ 0.05)) ; увеличение размерных линий 

(ЗЕТУАК "DIMTSZ" 0) ; изображение стрелки, а не засечки 
(ЗЕТУАК "DIMASZ" (* ВМАХ 0.15)) ; длина стрелки 


) 


ВМАХ — максимальный радиус из всех ступеней объекта. 

Теперь перейдем к указанию размеров многоступенчатого объекта с NO- 
мощью AutoLISP. 

Формирование цикла для указания размера диаметра ступени объекта 
можно организовать с помощью функции (ЕОКЕАСН...). 


(FOREACH <переменная> <список> <выражение>... ) 


5 


Пе зы дд 
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Эта функция последовательно присваивает значения элементов списка 
переменной и при каждом значении переменной вычисляет выражения, 
начиная с первого элемента списка. Процесс осуществляется до тех пор, 
пока не будут вычислены выражения для всех значений элементов списка. 

Выделить необходимую пару точек начала выносных линий из списка пар 
точек можно с помощью параметров функции (ЕОВЕАСН...). Для этого 
функция (ЕОВЕАСН...) должна быть записана следующим образом: 


my m> 


(FOREACH EL LT2T3 <выражение>...)} 


где EL — переменная, которой присваивается значение элемента списка 
LT?2T3. В этом списке содержатся пары точек, а выражение - это некото- 
рая последовательность функций AutoLISP. 

Выделить из пары точку начала первой выносной линии можно с помощью 
функции (CAR <список>), которая выделяет первый элемент списка. 

Если, к примеру, мы рассматриваем трехступенчатый объект, то список 
ГТ2ТЗ будет иметь следующий вид: '('(Т32 T33) (T22 T23) '(Т12 T13)). 

В цикле переменная EL будет последовательно содержать список пары 
точек правого торца ступени объекта. Функция (CAR...) позволит выде- 
лить из списка пары точек точку начала первой выносной линии. 

Выделение из пары точки начала второй выносной линии можно осуще- 
ствить с помощью функции (CADR...). 

Сохраним значения точек начала первой и второй выносных линий 
в переменных T2 и ТЗ соответственно с помощью функции (ЗЕТО...): 

SETQ T2 (CAR EL) 

ТЗ (CADR EL)) | 

Определить точки положения размерной линии (ТК) можно с помощью 
следующего выражения: 

ЕТО TR (LIST (- (CAR T2) 10) (CADR Т2}}} 

Точка T2 — это список '(X2 Y2), где X2 — координата X точки T2; Y2 - 
координата У точки T2. 

Функция (CAR T2) выделяет значение координаты Х точки T2. Из это- 
го значения вычитается 10 единиц, в результате получается значение ко- 
ординаты X точки T2. Выражение (CADR T2) определяет значение коор- 
динаты У точки ТВ. С помощью функции (LIST...) образуется пара — 
список из двух координат, то есть точка TR, через которую должна пройти 
размерная линия. l 

Указание размера диаметра ступени объекта выполняется командами 
графического редактора AutoCAD с помощью функции (СОММАМО...): 


(COMMAND "DIMI" “VER” T2 T3 TR "$%С<>") 
"DIM1" — команда для указания размеров. Возможны несколько видов 
указания линейных размеров. Они отличаются только углом, под которым 


Нанесение размеров на многоступенчатом объекте и ввод текста 133 


проводится размерная линия. Для каждого вида размерной линии имеет- 
ся свой КЛЮЧ: 

"НОВ" — HORizontal — горизонтальная размерная линия; 

"VER" — VERtical — вертикальная размерная линия; 

"ALI" — А Шете4 — линия, параллельная начальным точкам выносной 
линии; 

"ВОТ" — ROTated - линия, повернутая на заданный угол. 

После ключа "VER" задаются T2 и T3 - точки начала выносных линий, 
затем ТК — точка положения размерной линии. Текстовая константа обес- 
печивает вывод знака диаметра перед значением точек Т2 и T3. 

Для ввода в размерный текст специальных символов, например, симво- 
ла диаметра, используются управляющие коды: 

%%0 — включение/выключение режима надчеркивания; 

%%и — включение/выключение режима подчеркивания; 

%%4 — специальный символ <градус» (O); 

%%р — специальный символ «допуска» (+); 

%%с — специальный символ «диаметр» (Ø); 

%%% — вывод одиночного символа «процент»; 

%%ппп — специальный символ с десятичным кодом NNN. 

Определить точку положения размерной линии при указании размеров 
длины ступеней объекта можно с помощью следующего выражения: 

(SETQ ТВ (LIST X (- Y (* ВМАХ 1.2))) 
I 0) 

Проставлять размеры ступеней объекта начнем с первой ступени, а CMH- 
сок пар точек, который был создан ранее, содержит пары точек, начиная 
с последней ступени объекта. Это означает, что переменная ЕТ2ТЗ содер- 
жит список '('(ТЗ2 T33) (T22 T23) '(Т12 Т13)). Для того чтобы изменить 
порядок элементов в списке на обратный, в AutoLISP имеется встроенная 
функция (REVERSE...). 

(REVERSE <список>) 

После реверсирования переменная СТ2ТЗ будет содержать список 
'(' (T12 T13) '(Т22 T23) `(Т32 T33)). 

Первая пара точек соответствует первой ступени объекта, вторая — BTO- 
рой H T. д. 

Выделить точку начала второй выносной линии для того, чтобы проставить 
размер длины ступени. объекта, можно с помощью следующего выражения: 

(SETQ ТЗ (CADR EL) 
I(+#I1) 

Проставить размер`длины первой ступени объекта можно с помощью 

команды AutoCAD для указания размера: 
(COMMAND "РТМ" "НОВ" ВР T3 TR" ") 


‹ 
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Здесь используется команда "DIM". Отличие команд "DIM1" и "DIM" 
заключается в том, что команда "ОГМ1" позволяет проставить один раз- 
мер, а‘команда “DIM” — последовательность размеров. 

Формирование цикла для указания размеров длин ступеней объекта мож- 
но осуществить с помощью функции (ЕОВЕАСН...): 


зания длины ступени объекта 


; цикл сбсазмери 
(FOREACH EL LT2T3 
(SETQ T3 (CADR EL) ; точка начала 2-й выносной линии; 
т Е] 
(ТЕ (= I 1) | 
(COMMAND "DIM" "HOR" ВР T3 TR "") p указание длины 1-й ступени 
(COMAND "BAS" T3 "")) ; указание длины всех ступеней, кроме 1-й 


) 
Заметим, что размеры длины ступеней представляют собой последова- 


тельность базовых размеров. 
Последовательность связанных размеров в графическом редакторе 
AutoCAD строится с помощью команд "BAS" — BASELINE (базовый) 


г "СОМ" — CONTINUE (продолженный). 

Таким образом, чтобы проставить размеры длины всех ступеней, кроме 
1-й, следует использовать команду BASELINE. Ниже представлена функ- 
ция (ММОСО$ТЮВ...) создания и указания размеров многоступенчатого 


объекта. 


3.3.4. Программа параметрического изображения 
и указания размеров многоступенчатого объекта 


хкххкхкккккххкккхкккхххккккКккХхккхХхХКкКХХКкхКХхХхХхХХХХХХХККЖХХКХХКККХХккК 


(ММОСОЗТЗ Х Y LD) - Функция создания изображения 
м=огоступенчатого объекта и указания его размеров 

; дргументы функции: 

- X, У - координаты базовой точки объекта по осям Хи Y 

; LD - COCOK диаметров и длин ступеней объекта вида 

a ("ОЕ L1) "(D2 L2) "(D3 L3) =- =- à) 

; (SETDIM ЕМАУ) - функция установки размерных переменных для 
огределения вида размерных линий и самих размеров 

ВМАХ - максимальный радиус из всех ступеней объекта 

(РА7МУ) - Функция указания размеров (образмеривания) чертежа 
(STUP) - функция создания ступени объекта 

Пример вызова функции (MNOGOSTR X У LD) 


(ММОСОЗТР 10 100 '((40 70) (60 50) (40 30} (70 100))} 


kkikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkřkkkkkkkkkkkkkkkkkk 


å 


ъз 
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(DEFUN SETDIM (ВМАХ) ; функция определения вида размерных линий 


(COMMAND "UNITS" "2" "0" "1" "1" "О" "N")  ; система единиц 
(SETVAR "ОТМТАО" 1) - ; текст над размерной линией 
(ЗЕТУАВ "ОТМ$ОХР" 1) ; текст между выносными линиями 
(ЗЕТУАК "ОТМТТН" 0) ; текст расположен параллельно линии 
(СЕТУАВ "РТМОГТ" (* ВМАХ 0.25)) ; отступ между линиями | 
(ЗЕТУАК "ОТМЕХЕ" {* ВМАХ 0.05} )} ; увеличение размерных линий 
(ЗЕТУАВ "DIMTSZ" 0) ; изображение стрелки на 
; концах размерной линии 


(ЗЕТУАК "DIMASZ" (* ВМАХ 0.15}) ; длина стрелки 
| 
(DEFUN RAZMV () 
(SETDIM RMAX) ; вызов функции определения вида размерных гиний 
(SETQ LT2T3 (REVERSE LT2T3 )) | 
(COMMAND "STYLE" "" "COMPLEX" (* ВМАХ 0.15) "1" "" "т" nn пи) 


(FOREACH EL LT2T3 ; цикл указания размеров диаметров ступеней 
_ (ЗЕТО Т2 (CAR EL) ; точка для проведения 1-й выносной линии 
T3 (CADR EL) ; точка для проведения 2-й выносной линии 


ТВ (LIST (- (CAR T2) 10) (CADR T2))) 
(COMMAND "DIM1" "VER" T2 ТЗ TR "$%%с <>") 
) 
(SETQTR (LIST X (- Y (* RMAX 1.2))) 


I 0) 
(FOREACH EL LT2T3 ; цикл указания длины ступеней 
(SETQ T3 (CADR EL) ; точка проведения 2-й выносной линии 
ЕТ Е] 
(IF (= I 1) 
(COMMAND "DIM" "HOR" BP ТЗ TR "") ; изображение размера 
(COMMAND "ВАЗ" ТЗ ""))) ; 1-й ступени и последующих 


) 
(DEFUN STUP () 
(SETQ T10 (POLAR BT (/ PI 2) RO) 
T1 (POLAR ВТ (7 PI 2) R) 
T2 (POLAR T1 0 L) 
ТЗ (POLAR T2 (* 1.5 PI) D) 
T4 (POLAR T3 PI L) 
T40 (POLAR ВТ (* 1.5 PI) КО) 
BT (POLAR ВТ 0 L)) 
(COMMAND "PLINE" T10 "W" 0.2 0.2 T1 T2 T3 T4 T40 "") 

) 

(DEFUN MNOGOSTR (X Y` LD) ; начало создания функции 
(TEXTSCR) ; переход на текстовый экран 
(ЗЕТУАК "CMDECHO"- 0 ) 

(ЗЕТУАВ "BLIPMODE" 0) 
(COMMAND "LIMITS" "0,0" "200,120" "ZOOM" "A") 
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а Е НЕЕ 
(SETO КМАХ 0 LT2T3 '() 
RO 0 BT (LIST X Y) 
BP BT) 
(FOREACH EL LD 
(SETQD (CAR EL) 


‚ начало цикла создания ступени 
выделение из пары диаметра ступени 


L (CADR EL) ; выделение из пары длины ступени 
К (* 00.5) ) 
(ТР (> R КМАХ) (SETQ ВМАХ R)) ; определение максимального 


‚ радиуса 


% 


(IF (< R ВО) (SETQ RO R)) 


(STU?) ; вызов функции для создания 
; ступеней 
(SETQ LT2T3 (CONS (LIST T2 T3) LT2T3) ; список пар точек 
RO к) } ; для изображения выносных линий 
RAZMV) ; вызов функции для указания 


; размеров чертежа 
(COMAND "LAYER" "№" "OSI" "L" "CENTER" "OSI" "5" "OSI" 
"= "LINE" BP BT "") 
(?PRIN1) 
} 
(XNOGOSTR 10 60 '((30 40) (40 50) (30 30) (15 40))) ; вызов функции 

Результатом выполнения функции (ММОСО$ТВ...) будет изображе- 
ние многоступенчатого объекта с указанием его размеров, аналогичное 
изображенному на рис. 3.8. 

Чтобы завершить оформление чертежа, необходимо вывести текстовые 
пояснения, которые сначала можно поместить в текстовый файл, а затем 
на чертеж. 

Приведем функцию (ТЕХТИМТ), которая считывает информацию из 
текстового файла и помещает ее на чертеж в указанную точку. Обращение 
к текстовому файлу, местоположение информации производится в диало- 
говом режиме. 


3.3.5. Программа параметрического ввода текста 
из þanna на чертеж 


. жхкхкхххххкхккккккхккхккхккккхккккккКкхххкхХхХХкКХХККУХхХХКККХКККХХХхХххкХх 
# 


; (TEXTIN1)- функция размещения текста из файла на чертеже 
4 kkkikikřkkřižkřżáěřůikřižkkkákřáěýkřkkřkěřkkkkřkkřiěřážkikikikikkřkkikikžěýk*žkřkkkkřikikikkikěkkkkáýákkkkkiki*kžáůk*žki*á*át 
(DEFUN TEXTIN1 (/ FN BP OF RL P U) 

(ЗСЕТУАВ "CMDECHO" 0) ; отключение эха команд 

(СЕТУАВ "ВЬТРМОПЕ" 0) ; отключение изображения маркера 

(COMMAND "LIMITS" "0,0" "297,210" "ZOOM" "А"} o 

(SETQ FN (GETSTRING "\п Введите имя файла с текстом : "} 
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ВР (СЕТРОТМТ "\п Введите точку ввода текста: [можно мышкой] ") 
P (СЕТВЕАЁ "\п Введите высоту букв текста: ") 
U (GETREAL "\п Введите угол наклона текста: ")) 
(ТУРЕ FN) 
(PRINT FN) 
(SETQ OF (OPEN FN "r") 
H (/ P 4) 
RL (READ-LINE OF)) 
(COMMAND "STYLE" "" "" pH "" nm ии nn 
"ТЕХТ" BP U RL) 
(WHILE (SETQ RL (READ-LINE OF))} 
(COMMAND "TEXT" "" RL)) 
(CLOSE OF) 


) 
(TEXTIN1) ; вызов функции (TEXTIN1) 


Функция (ТЕХТИМ1) обеспечивает считывание заданного текстового 
файла построчно. Полное имя файла запоминается в локальной перемен- 
ной FN (File Мате -— имя файла). В локальной переменной ВР (Base 
Point — базовая точка) запоминается начальная точка первой строки (за- 
писи) текста, в локальной переменной Р - высота букв текста, в перемен- 
ной U — угол наклона текста. В локальной переменной OF запоминается 
полное имя файла, открытого для чтения "г" (read). В локальной перемен- 
ной RL запоминается считываемая строка текста. 

Функция (COMMAND...) выводит на чертеж первую строку, взятую H3 
текстового файла. Для вывода всех записей в текстовом файле использу- 
ется функция (\УНИШЕ...). 

Выражение 

(SETQ RL (READ-LINE ОЕ) } 

обеспечивает считывание очередной записи из открытого файла 
(TEXT.LSP) и ее сохранение в переменной RL для последующего вывода 
на чертеж с помощью команды ТЕХТ. 

Для вывода на чертеж текстовых данных (например, технических тре- 
бований из заранее подготовленного текстового файла) функцию 
(TEXTIN1) можно включить в функцию (ММОСО$ТО) или (ММОСО- 
STPM). Для этого необходимо в функции (ММОСОЗ$ТО) или (ММОСО- 
STPM) перед последней круглой скобкой разместить функцию (ТЕХТ- 
М1) с указанием полного имеки, например: 

(LOAD "С: ГАТ5Р/ТЕХТТМ" ) 
(TEXTIN1) 


Допустим, сверху в поле чертежа многоступенчатого объекта (см. 


рис. 3.7) вам предстоит ввести надпись: 
ГРАФИЧЕСКОЕ ИЗОБРАЖЕНИЕ МНОГОСТУПЕНЧАТОГО ОБЪЕКТА 
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Прежде всего необходимо создать текстовый файл с этой записью, напри- 
мер, фаил ТЕХТ.ТХТ в каталоге АР на диске С:. Пусть в этом же kaTa- 
логе находятся файлы ММОСОЗТРМ.ТЗР и ТЕХТИМ1.ГЗР. Затем в Ko- 
мандной строке AutoCAD необходимо загрузить файл ММОСОЗТРМ.Г$Р 
в нем находится функция (ММОСОЗТРМ...), которую следует выполнить. 

Cormang: (LOAD "С: /АБТбР/ММОСОЗТРМ" ) 
МХОСО$ТЕМ 
Command: (ММОСОСТРМ 10 60 '((30 40) (40 50) (30 30) (15 40))) 

На экране появится графическое изображение многоступенчатого 
объекта (см. рис. 3.7). Затем предстоит загрузить файл TEXTIN1.LSP 
в нем находится функция (ТЕХТИМ1), которую необходимо выполнить. 


pm 


Ccrmand: (LOAD "C:/ALISP/TEXTIN1") 
TZXTINI 
Command: (TEXTINI) 


В окне появятся следующие запросы: 


БЗзегите имя файла с текстом : С:/АБТЗР/ТЕХТ. ТХТ 
Взедите точку взода текста: [можно мышкой] 15,100 
55ерите высоту букв текста 4 

З=елите угол наклона текста 0 


После этого в поле чертежа появится первая строчка из файла 
ТЕХТ.ТХТ, затем вторая. Начало текста находится в точке с координата- 
ми (15,100), с высотой букв 4 и наклоном текста 0 градусов. 


3.4. Создание параметрических изображений 
проекций конструкций 


Основные этапы автоматизации создания параметрического изображения 
проекций конструкции рассмотрим на примере ферм. 


3.4.1. Постановка задачи 


Требуется разработать алгоритм и программу для автоматизации создания 
параметрического изображения фронтальной проекции фермы с заданным 
числом секций — М, заданной длиной фермы - L и заданной высотой — H. 
Общий вид фронтальной проекции фермы представлен на рис. 3.10. Необ- 
ходимо предусмотреть возможность изменения всех параметров фермы: 
длины, высоты, числа секций, а также точки подвеса фермы. Следует раз- 
работать два варианта программы в диалоговом и пакетном режимах. 
В первом случае необходимая исходная информация запрашивается в про- 
цессе выполнения программы; во втором - вся исходная информация за- 
дается до выполнения программы в виде аргументов функции. 


ИАА 


Рис. 3.10. Общий вид фронтальной проекции фермы 


3.4.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 
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В ходе анализа общего вида проекции фермы (см. рис. 3.10) можно заме- 
тить, что конструкция прямоугольной секции до точки подвеса фермы — 
МС отличается от конструкции прямоугольной секции, расположенной 
после точки подвеса, наклоном раскоса. Это обстоятельство можно ис- 
пользовать для упрощения последовательности действий и программы. 

Конструкция фермы включает две угловые и остальные прямоуголытые 
секции. Для создания прямоугольных секций необходимо знать номер CEK- 
ции подвеса фермы — МС, длину секции — LS, которая в данном случае рав- 
на [./М. Число прямоугольных секций (NS) на две меньше общего числа, 
то есть NS = М - 2. Создание параметрического изображения проекции 
фермы необходимо начинать с базовой точки (точки начала прорисовки 
фермы - BTF), задавая ее координаты X и У. Будем считать, что все сек- 
цни фермы имеют одинаковую длину. 


3.4.3. Разработка последовательности действий 
и программы параметрического изображения 
фронтальной проекции фермы 


Создание параметрического изображения фронтальной проекции фермы 
состоит из нескольких основных этапов. 

Создание начальной угловой секции. При диалоговом режиме работы не- 
обходимо предусмотреть ввод следующих данных: 

ХЕ - координата X базовой точки проекции фермы; 

УЕ - координата у базовой точки проекции фермы; 

L, H - длина и ширина фермы соответственно; 

М, МС - число секций в ферме и номер секции подвеса фермы соответ- 
ственно. 


-“ 


oae 
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Для создания изображения начальной угловой секции требуется знание 
трех точек (см. рис. 3.11, а): базовой точки — BTF; верхней - T1 и нижней -— 
T2. Стрелками на рис. 3.11 показаны схемы создания параметрического 
изображения угловой секции. 

Создание прямоугольных секций фермы. Для создания графического 
изображения каждой прямоугольной секции достаточно знать координа- 
ты четырех точек: T1, T2, ТЗ, ТА. При этом для создания графического 
изображения каждой последующей прямоугольной секции достаточно 
определить координаты только двух точек - ТЗ и T4. Точки T1 и T2 в Ho- 
вой строящейся секции совпадают с точками ТЗ и T4, определенными для 
предыдущей секции. Схемы создания графического изображения прямоу- 
гольных секций показаны на рис. 3.11, 6, в. 

Создание графического изображения секций следует проводить в цик- 
ле. Если секция расположена до точки подвеса фермы, прорисовка секции 
проводится по схеме рис. 3.11, 6; если прямоугольная секция находится 
после точки подвески, то она изображается по схеме рис. 3.11, в. 

Создание конечной угловой секции. Для создания конечной угловой cek- 
ции достаточно знать координаты только ТЗ — точки конца фермы; коор- 
динаты еще двух точек (Т1 и T2) можно взять из предыдущего цикла. 

Далее рассмотрим функции AutoLISP, которые следует использовать 
для создания графического изображения фронтальной проекции фермы. 

Ввод исходных данных в диалоговом режиме можно представить в та- 
ком виде: | 


Е 
") 


(SETQ XF (GETREAL "\n Координата х базовой точки фермы XF 
YF (GETREAL "\п Координата у базовой точки фермы YF 
L (СЕТВЕАГ "\п Длина фермы L = ") 
NC (GETINT "\п Номер секции подвеса фермы NC = ") 
H (СЕТВЕАШ "\п Высота фермы H = ") 
N (GETINT "\п Число секций в ферме М =") 


T1 T1 T4 T4 T4 


T2 ТЗ T2 T3 
BTF „) Т2 6) в) 


Рис. 3.11. Угловые и прямоугольные секции фермы 
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Для создания начальной угловой секции определим базовую точку BTF, 
‘длину секции LS, точки T1, T2 и используем команду "PLINE"; 


(SETQ BTF (LIST XF УР) 
LS (/ LN) 
T2 (POLAR BTF 0 LS) 
T1 (POLAR T2 (/ PI 2) H) 
IO 
NS (- N2) 
) 
(COMMAND "PLINE" BTF "W" 0.2 0.2 T1 T2 "C") 

Создание прямоугольных секций выполним в цикле с использованием 
функции (КЕРЕАТ...). При создании каждой следующей прямоугольной 
секции необходимо проверить условие перехода через точку подвеса, так 
как при этом изменяется вид секции. В конце цикла переприсвоим коор- 
динаты последних двух точек последней изображенной секции двум точ- 
кам Ti и T2, которые служат начальными точками для создания следую- 
щей прямоугольной секции. 

Эта часть программы будет выглядеть так: 

(REPEAT NS 

(SETQ T3 (POLAR T2 0 LS) 
T4 (POLAR T1 0 LS) 
I (+ I1)) 
(IF (< INC) 
(COMMAND "PLINE" T1 "W" 0.2 0.2 T4 ТЗ T2 T4 "") 
(COMMAND "PLINE" T2 "М" 0.2 0.2 T3 T4 T1 ТЗ "")) 
(SETO T2 T3 T1 T4) 
) 
Создание конечной угловой секции можно выполнить следующим об- 


разом: 
(SETQ ТМ (POLAR T2 0 15} } 
(COMMAND "PLINE" T4 "W" 0.20.2 ТМ ТЗ "") 
Ниже представлена функция для создания параметрического изображс- 
ния фронтальной проекции фермы (SFD...). 


3.4.4. Программа параметрического изображения 
фронтальной проекции фермы в диалоговом режиме 


ххх хкККкКхкККхКкккКкКккКкКхХККХКККХКХХКХХХККХКХККХХКККХКХХХ 


; (SFD) - функция создания параметрического изображения 


; фронтальной проекции фермы в диалоговом режиме 
ХКХХХКККАККККККИККЕККККККККККК КК К КК КККККККККККККК КК КК ККККККККККХ 
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(DEFUN SFD () i 
(SETVAR "СМОЕСНО" 0) ; отключение эха команд редактора 


(ЗЕТУАВ "BLIPMODE" 0) ; отключение изображения маркера 
(COMAND "LIMITS" "0,0" "297,210" "ZOOM" “"А") 

(TEXTSCR) ; переход на текстовый экран 
(PROMPT "\п Введите основные параметры фермы: "} 

(SETQ 


") 
"yo 


ХЕ (GETREAL "\n Координата x базовой точки фермы XF 


F, 
L (GETREAL "\n Длина фермы L =") 
NC (GETINT "\n Номер секции подвеса фермы NC = ") 
H (СЕТВЕАЬ "\п Высота фермы H = ") 
N (GETINT "\n Число секций в ферме N = ")) 
(SETQ BTF (LIST ХЕ YF) ; определение базовой точки BTF 
LS (Z LN) ; определение длины секции LS 
T2 (POLAR BTF 0 LS) 
Ti (POLAR T2 (/ PI 2) H) 


r0 
NS (- N 2}) ; 
(CCMAND "PLINE" BTF "W" 0.2 0.2 Ti T2 "C'"°) 
(REPEAT NS ; определение точек секции и создание 


) ; изображения фермы 
) 


Е 

(ТЕ (< INC) 

(ССУМАМО "PLINE" T1 "М" 0.20.2 T4 ТЗ T2 T4 "") 
(COMEND "РЬТМЕ” T2 "М" 0.20.2 T3 TA T1 T3 ""})}) 

(SETQ T2 T3 T1 T4)) 
(SETQ TN (POLAR T2 0 LS)) 
(COMMAND "PLINE" T4 "И" 0.2 0.2 TN ТЗ "")) 
(SFD) ; вызов бункнии 

Результат выполнения функции (SFD) 
В=едите основные параметры фермы: 
Хоордината X базовой точки фермы XF = 10 

Косрдината у базовой точки фермы YF = 130 

Длина фермы L = 160 

Есмер секции подвеса фермы NC = 6 

Высота фермы Н = 42.0 

Число секций в ферме М = 8 

Результатом выполнения функции (SFD) будет параметрическое изоб- 

ражение фермы (рис. 3.12). | 

Для создания функции, обеспечивающей формирование параметричес- 
кого изображения аналогичной фермы, но в пакетном режиме, достаточно 
создать функцию с параметрами (SF XF УЕЕНВМ МС UF). 
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3. 


Рис. 3.12. Параметрическое изображение фермы, 
созданное при помощи функции [SFD] 


4.5. Программа параметрического изображения 


горизонтальной проекции фермы 


‚ ХХХ КККККККККККХККХ КЖ ККХККККККХКХ КК КККХКХКККККККХЖКХкХККк 


= 


ba 


- 


‚; (SG XF YF L B N} - функция создания параметрического 
; изображения горизонтальной проекции фермы 


Аргументы функции: 


; ХЕ, УЕ - координаты базовой точки фермы по оси X,Y 
; L,B - длина, ширина фермы 


N - число секций в ферме (четное число секций/ 


. ХХХхххххкхххххкххххкхкхкххкххккхккхкКххкКхкКхкКкКкКхкКхКхХХХхКкКххХхКкКхКкКУХхХхХХХхХхХХхкХ 


(DEFUN SG (ХЕ YF L B N) ; начало создания функции 


) 


(SETVAR "CMDECHO" 0) ; отключение эха команд 
(ЗЕТУАК "ВЫТРМОШЕ" 0} ; отключение изображения маркера 
(SETQ ВТС (LIST ХЕ YF) ; определение базовой точки 

LS (Z LN) ; определение длины секции 

Т2 ВТС 


Т1 (POLAR T2 (/ PI 2) B)) 
(COMMAND "PLINE" T2 "W" 0.2 0.2 T1 "") 
(REPEAT (/ N 2) 
(SETQ T3 (POLAR T2 0 LS) 
T4 (POLAR T1 0 LS}) 
(COMMAND "PLINE" T1 "W" 0.2 0.2 T4 ТЗ T2 T4 "") 
(SETQ T2 T3 T1 T4) 
(SETQ ТЗ (POLAR T2 0 LS) 
T4 (POLAR T1 0 LS)) 
(COMMAND "PLINE" T2 "W" 0.2 0.2 ТЗ T4 T1 ТЗ "") 
(SETO T2 T3 T1 T4)) 


(SG 40 200 320 40.0 8) ‚ вызов Функции 


Результатом выполнения функции (SG...) будет параметрическое изоб- 


ражение фермы (рис. 3.13). 


„> 


Wr z” 
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Рам 


Рис. 3.13. Параметрическое изображение фермы, созданное при помощи функции [5С...} 


3.4.6. Программа параметрического изображения 
изометрии фермы 


Ниже приведена программа создания изометрии фермы. 
хххххххххкххкхххкххххххххххххххххкххххххххххххххххххххХхххАхХхкхХхХхХхХххХхХХхХХхХ 
(SE XF УЕ L H N NC UF) - функция изображения фронтальной 

посекции Фермы 

;Асгументы функции: 


~t ~o ео 


; XF- ксорлината X базовой точки фермы 
; УЕ- координата у базовой точки фермы 
; L- длина фермы 

; h - зысота феомы 

; В - сирина фермы 


р 


- число секций в ферме 
; NC- номер секции подзеса фермы 
; UF- угол наклона фронтальной проекции 
; ххххххкхккккккккккхккхкккккхк кк кк кКкКкХхкККХхАХКККХХХКХХХХХКХХХКХХХХХХ 
(ПЕРОМ SF (XF YF L H BN NC UF) 
(SETQ BTF (LIST XF YF) 
LS (/ LN) 
T2 (POLAR BTF 0 LS) 
т] (POLAR T2 UF H) 
TY T1 
то 
№ (- N 2)) 
(COMMAND "PLINE" T2 "W" 0.2 0.2 BTF T1 "С") 
(REPEAT NS 
(SETQ ТЗ (POLAR T2 0 LS) 
TA (POLAR T1 0 LS) 
I (+ I1}) 
(IF (< I NC) 
(COMMAND "РЫТМЕ" T1 "W" 0.2 0.2 T4 ТЗ T2 T4 "") 
(COMMAND "РЬТМЕ" T2 "W" 0.2 0.2 ТЗ T4 T1 T3 =") 
) 
(SETQ T2 T3 T1 T4) 
) р 
(SETQ TN (POLAR T2 0 LS)) 
(COMMAND "PLINE" T4 "М" 0.2 0.2 TN тии") 


) 
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‚ ХХХ КХКККХКХКХХХХХХХХАХХХККХХХКАККХХХХХХ 
; | 


$ 


i 


# 


i 


; SG-- функция создания параметрического изображения 
‚ нижнего пояса фермы с наклоном 

‚; В - ширина нижнего пояса фермы 

; UG - угол наклона нижнего пояса. 


. ЖКХ КККХХХАХАХКХХХАХКХАХКАХКХХАХХХХХХХАКХКАХХАХХЯХХАХХХХХХХ 
ë 


(DEFUN SG (XF YF L.H BN NC UG) 


(1 "s 


(SETQ BTG (LIST XF YF) LS (/ L N) T2 BTG 
T1 (POLAR T2 UG B) TN T1) 
(COMMAND "PLINE" T2 "W" 0.2 0.2 T1 "") 
(REPEAT {/ N 2) 
(SETQ T3 (POLAR T2 0 LS) 
T4 (POLAR T1 0 LS) 
) 
(COMMAND "PLINE" T1 "W" 0.2 0.2 T4 T3 T2 T4 "") 
(SETQ T2 T3 T1 T4) 
(ЗЕТО ТЗ (POLAR T2 0 LS) 
T4 (POLAR T1 0 LS)) 
(COMMAND "PLINE" T2 "W" 0.2 0.2 T3 T4 T1 T3 "") 
(SETQ T2 T3 T1 T4)) 


kkikkkiřikřkkkřkkřiikkkiřiáýá*řġiřikkěkřkkkřikkkřkkřžkkřkážkěřżkýkřkřkkřkkkkkřěkikáěákřkáěákřkžřžkěžkžkkkřikákřá*žáěáá*ážk*žk*á*kákk 


SI - функция создания параметрического изображения 


изометрии фермы 
ххххххххкхкххАххкххАхХхАхАХххкКххХхХхХХххХхХххХххХкКкКхХХххХхХкХхХкКкКкКхХкХКхХхХкхХххХхХХхХхХхХхкКхКкХх 


(DEFUN SI (ХЕ YF LH BN NC ÚF UG) 


) 


(SETVAR "CMDECHO"” 0) 
(SETVAR "BLIPMODE" 0} 
(COMMAND "LIMITS" "0,0" "400,300" "ZOOM" "A") 
(SF XF YF LH BNNCUPF) ; вызов функции 
(SG ХЕ YF L H B NNC UG) ; вызов Функции 
(REPEAT (- N 1) 
(SETQ TV1 (POLAR ТУ 0 15} 
TN1 (POLAR TN 0 15} 
) 
(COMMAND "PLINE" TN "W" 0.2 0.2 TV TN1 "") 
(SETQ ТУ TV1 
TN TN1) 
) 
(SETQ TN (POLAR TN 0 LS) 
TV (POLAR TV PI LS) 
) 
(COMMAND "PLINE" TV "W" 0.2 0.2 TN "") 


(SI 40 200 320 62.0 40 8 4 1.2 0.5} ; вызов функции 
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Результатом выполнения функции ($1...) будет параметрическое изоб- 
ражение изометрии фермы (рис. 3.14). 


А 


Рис. 3.14. Парометрическое изображение фермы, созданное при помощи функции (...] 


3.5. Создание параметрического изображения 
общего вида объекта 


Многие объекты отличаются друг от друга размерами тех или иных эле- 
ментов, узлов и т. д., которые можно описать параметрически. 


3.5.1. Постановка задачи 


Требуется разработать алгоритм параметрического трехмерного изображе- 
ния общего вида коттеджа с прорисовкой окон, дверей и даже форточки 
и создать функцию для параметрического изображения коттеджа 
(КОТТЕО] SO KR (ХУ UX), в которои: 

ЗО — слисок координат точек и размеров элементов коттеджа вида: 

(( X1 Y1 71 L1 В1 H1) (X2 Y2 Z2 L2 B2 Н2)...), где 

X1, Y1, Zi — координаты базовой точки коттеджа; 

L1, Bi, H1 - размеры коттеджа (длина, ширина, высота); 

X ‚У, - координаты базовых точек элементов коттеджа (окон, MBE- 
рей, форточек); 

[._В Н - размеры элементов коттеджа (окон, дверей, форточек): их 
длина, ширина и высота соответственно; 

КК - высота крыши; 

UXY, UX - углы направления взгляда на коттедж относительно плоско- 


сти ХУ H OCH X. 


3.5.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 
Сделаем эскизную прорисовку общего вида коттеджа (рис. 3.15). 


Для параметрического изображения коттеджа используем трехмерные 
элементарные команды AutoCAD.- параллелепипед "BOX" и клин 
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"WEDGE". Параллелепипед "BOX" нам потребуется для изображения са- 
мого коттеджа, окон, дверей и форточек, а клин "WEDGE” - для изобра- 
жения крыши коттеджа. 

В команде построения параллелепипеда "ВОХ" присутствуют следующие 
аргументы: базовая точка — ВТ признак ввода размеров параллелепипеда — 
"L"; длина, ширина и высота параллелепипеда — соответственно Т.О, ВО, НО. 


3.5.3. Разработка последовательности действий 

и программы параметрического изображения коттеджа 
Полное описание коттеджа зададим в виде списка SO. Он включает все 
элементы коттеджа в виде списка EL вида '(ХО YO ZO LO ВО НО). Чтобы 


использовать информацию для создания графического изображения эле- 
мента, ее необходимо предварительно извлечь из списка ЕТ: 


(SETQ ХО (NTH 0 EL) ; координата X базовой точки элемента 
YO (NTH 1 EL) ; координата у базовой точки элемента 
ZO (NTH 2 EL) ; координата 2 базовой точки элемента 
LO (NTH 3 EL) ; длина элемента 
ВО (NTH 4 EL) ; ширина элемента 
НО (NTH 5 EL) ; высота элемента 
I (+11) 


(COMMAND "BOX" (LIST ХО YO ZO) "L" LO ВО НО} 

Для создания графического изображения крыши используем команду 
"WEDGE" со следующими аргументами: базовая точка — ВТ: признак BBO- 
да размеров клина — "Г"; длина, ширина и высота клина — соответственно 
LO, ВО, КК. Для определения базовой точки крыши необходимо исполь- 
зовать координаты базовой точки коттеджа и его размеры: 

(ТЕ (= I1) 
(РКОСМ 
(SETQ 602 {/ LO 2})) 
( COMMAND 
"WEDGE" (LIST (+ ХО 102) YO HO) "L" (- 0 002) BO KR 
"WEDGE" (LIST (+ ХО LO2) YO HO) "L" 102 BO KR) } 
) 

В трехмерном пространстве выберем «точку зрения», то есть местопо- 
ложение глаза наблюдателя относительно просматриваемого объекта 
(в нашем случае коттеджа). AutoCAD позволяет взглянуть на объект из 
любой точки пространства (даже изнутри изображаемого объекта). Линию 
от «точки зрения» до объекта часто называют линией взгляда или направ- 
лением взгляда. 
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Получить динамические трехмерные и перспективные виды можно с IO- 
мощью команды "DVIEW", в которой используется аналогия с камерой, 
направленной в сторону объекта. В качестве аргументов могут выступать: 
точка объекта, которая выбрана для просмотра, — ТО; признак просмотра 
камерой — “СА”; углы между направлением взгляда и плоскостью ХУ 
и угол между линией взгляда и осью X — соответственно (ХУ UX: 


(COMMAND "DVIEW" (LIST ХО YO) "" "СА" UXY UX "") 


Угол UX изменяется в пределах от 180° до —180° — значение со знаком 
минус обозначает отсчет угла по часовой стрелке, со знаком плюс — IpO- 
тив часовой стрелки. | 

Угол UXY изменяется в пределах от 90° до —90° — значение со знаком 
минус обозначает отсчет угла вниз от плоскости ХУ, со знаком плюс - 
вверх. | 

Используем направление взгляда вдоль линии, лежащей под углом 
UXY = 40°к плоскости ХУ, проекция которой на плоскость ХУ находится 
под углом UX = —140° относительно оси X. 


i , Рис. 3.16. Параметрическое изображение 
‚ коттеджа, созданное при помощи функции 


Рис. 3.15. Эскиз общего вида коттеджа [KOTTEDJ...) 


Создание параметрического изображения общего вида объекта 149 


3. 


5.4. Программа параметрического изображения 


коттеджа 


‚ ХЖЖХККЖАККХАКХХККХХКККККККК КК ХК КХ , 
t . 


w а 


ъ`-е 


Г] badk] 


f 


(KOTTEDJ $0 KR UXY UX) - функция создания 
параметрического изображения коттеджа 


‚Аргументы функции: 
; SO - список базовых точек и размеров элементов коттеджа 


(LIST (LIST X1 У1 21 L1 B1 H1) (LIST X2 Y2 22 12 B2 Н2)...) 


; X1, Y1, 21 - координаты базовой точки коттеджа 
‚ L1, B1, H1 - размеры коттеджа (длина, ширина, высота) 
. X 


_, Y_, Z_- координаты базовых точек элементов коттеджа 
L_ B_ H_ - размеры элементов коттеджа (длина, ширина, высота} 


‚ KR - высота крыши 


ОХУ, ОХ - углы взгляда на коттедж с плоскостью ХУ и с осью X 
Пример вызова функции (KOTTEDJ SO КВ UXY UX) 

(КОТТЕОХ (LIST (LIST 20 20 0 50 30 40) (LIST 30 20 1310 3 13) 
(LIST 50 20 13 10 313) (LIST 55 500 12 -3 28)) 60 40 -140) 


ххххххкхккххкххххххххккАхкхххккхххххкКхкххккхххКкХхкКкКхХхХкККхХКкКХКХХХКкХКкКхХхКкХ 


(DEFUN КОТТЕРУ (50 KR UXY UX) 


) 


(COMMAND "LIMITS" "0,0" "300,400" "ZOOM" "А") 
(ЗЕТО ТО) = 
(FOREACH EL SO 
(SETQ XO (NTH 0 EL) 
YO (NTH 1 EL) 
ZO (NTH 2 EL) 
LO (NTH 3 EL) 
BO (NTH 4 EL) 
HO (NTH 5 EL) 
I (+I1)) 
(COMMAND "BOX" (LIST ХО YO 20) "L" LO ВО HO) 
(IF (= I 1) (PROGN (SETQ LO2 (/ LO 2)) 
(COMMAND 
"WEDGE" (LIST (+ ХО LO2) YO НО) "L" (- 0 102} BO KR 
"WEDGE" (LIST (+ ХО LO2) YO HO) "L" LO2 BO KR 
"DVIEW" (LIST XO YO) "" "CA" UXY UX "") 


) 


(KOTTEDJ (LIST (LIST 20 20 0 50 30 40) 


(LIST 30 20 13 10 3 13) 
(LIST 50 20 13 10 3 13) 
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(LIST 20 30 13 3 10 13) 
(LIST 55 500 12 -3 28) 
(LIST 40 50 50 14 -3 10) 
(LIST 50 20 20 6 3 6)) 6040 -140) 
Результатом выполнения функции (KOTTEDJ...) будет параметричес- 
кое изображение коттеджа (рис. 3.16). 


3.6. Создание параметрического изображения 
общего вида машины 


3.6.1. Постановка задачи 


'Требуется разработать функции на языке AutoLISP для формирования na- 
раметрического изображения основных узлов экскаватора и всего экска- 
ватора в целом (как в дналоговом, так и пакетном режимах), допуская из- 
менение основных параметров узлов. 


3.6.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Выделим основные узлы экскаватора: ходовое устройство (ходовая часть, 
поворотная платформа); рабочее оборудование. На поворотной платфор- 
ме должен быть оборудован привод — силовая установка, кабина и paĝo- 
чее оборудование. В рабочем оборудовании необходимо выделить стрелу, 
рукоять и ковш, которые могут иметь различное конструктивное испол- 
нение. Ограничимся рассмотрением гидравлического одноковшового экс- 
каватора. Предусмотреть возможность прорисовки гидроцилиндров для 
наклона стрелы, рукояти и поворота ковша, атакже возможность различ- 
ного положения рабочего оборудования экскаватора. 


3.6.3. Разработка последовательности действий 
и программы параметрического изображения 
основных узлов машины 


Создание параметрического изображения общего вида машины включает 


следующие этапы: 
° параметрическое представление основных узлов машины; 
. выделение для каждого узла базовых точек (для самого узла, а также 


для узлов, связанных с HHM); 
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° введение возможности конструктивного изменения отдельных узлов 
за счет изменения того или иного параметра, например, угла перелома 
в стреле экскаватора. 

Начнем разработку функции с ходовой части экскаватора (рис. 3.11). 


T2 BP T3 


HH 


Рис. 3.17. Параметрическое предстовление ходовой части 


3.6.4. Программа параметрического изображения 
ходовой части экскаватора 


a ххккхкккхкххкхххххкхккххххккххкхкккхкххкхкхххххкххххххххххккххххкхХхххххХх 
; (GUSHOD XH YH ТН НН ХР УР) - функция создания 
параметрического изображения гусеничного хода 

‚ Аргументы функции: 

XH - координата X базовой точки гусеничного хода 

; YH - координата у базовой точки гусеничного хода 

; LH - размер базы гусеничного хода 

; НН - высота гусеничного хода 

; ХР - координата X базовой точки поворотной платформы 


‚; УР - координата у базовой точки поворотной платформы 
ххххххккхккхкккккхххкхккккккххкккххкхккхххххкхххххххкккхкхххкхкхккКккКкУкКкЖхХккКк 


(DEFUN GUSH (XH YH LH НН ХР УР) 

(SETQ BT (LIST XH YH) 
BP (LIST (+ XH XP) (+ YH УР HH)) 
T1 (POLAR BT PI (/ LH 2}) 
T2 (POLAR T1 (/ PI 2) HH) 
T3 (POLAR T2 0 LH) 
T4 (POLAR T1 0 LH) 

) 

(SETQ T12 (POLAR T1 (/ PI 2) (/ HH 2}) 
T34 (POLAR T4 (/ PI 2) (/ HH 2)) 

) 


(COMMAND 
"PLINE" T4 "И" 0.1 0.1 T1 "ARC" T2 "LINE" ТЗ "АВС" T4 "" 


- « 
а ва г 
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"CIRCLE" T12 {- (/ НН2) 5) 
"CIRCLE" T34 (- (/ HH 2) 5) 
) 
) 
(GUSH 120 10 200 30 0 10 } ; вызов функции 
(COMMAND "ZOOM" "А") 
Параметрическое изображение платформы экскаватора представлено 
на рис. 3.18. 


3.6.5. Программа параметрического изображения 
поворотной платформы экскаватора 


=- ЖХХХХХКККККККХХКККККХХКХКХКККХХХХККККККККХХКККККХКХхХХКХКККККККХКкКкХкХкХ 


; (РОУРЬ LZ LP LD HD НР НК LK XS YS ХС1 УС1) - функция 

; создания параметрического изображения говоротной 

; платформы экскаватора 

;Адоргументы функции: 

; ХР - кооодината х базовой точки поворотной платформы 
; Y? - координата у базовой точки поворотной платформы 


Рис. 3.18. Парометрическое изображение платформы экскаватора 
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. LZ - длина задней части платформы 

‚ ГР.- длина поворотной платформы 

; LD - длина двигательного отделения 

НО - высота задней части платформы 

‚ НР - высота передней части платформы 

; НК - высота кабины 

; LK - длина кабины 

‚ XS - координата x базовой точки MATH стрелы 

; YS - координата у базовой точки NATH стрелы | 
ХС] - координата x базовой точки крепления штока цилиндра стрелы 


УС1 - координата у базовой точки крепления штока цилиндра стрелы 
КККККХКХККККККАКАККККККККККХККАККККККККККККККХККККККККККХККККККК КК 


badi] 


® - о 


$ 


(DEFUN POVPL (LZ LP LD HD HP HK LK XS YS XC1 УС1) 
(SETQ T] (POLAR BP PI LZ) 
T2 (POLAR T1 (/ PI 2) HD) 
T3 (POLAR T2 0 LD) 
T4 (POLAR ТЗ (* 1.5 PI) (- HD HP)}) 
T5 (POLAR T4 0 (-(- LP LD) 10)) 
Тб (POLAR BP 0 (- LP LZ)) 
T7 (POLAR T6 (/ PI 2) HK) 
T8 (POLAR T7 PI LK) 
T9 (POLAR T8 (* 1.5 PI) (- НК HP)) 
BS (POLAR ВР 0 XS) 
BS (POLAR BS (/ PI 2) YS) 
BC1 (POLAR BP 0 ХС1) 
BC1 (POLAR BC1 (/ PI 2) УС1)) 
(COMMAND "PLINE" Тб "W" 0.1 0.1 T1 T2 ТЗ T4 T5 "C" 
"PLINE" Тб "И" 0.1 0.1 T7 T8 T9 "") 
) 
(SETQ BP ' (120 30)) ; установка базовой точки платформы 
{РОУРГ 70 140 50 60 50 100 50 60 20 80 10) ; вызов функции 
(COMMAND "ZOOM" "А") 


Параметрическое изображение стрелы экскаватора дано Ha рис. 3.19. 


3.6.6. Программа параметрического изображения 
стрелы экскаватора 


k kkkkkkřkkřkáěřáikkěkžkkáikkkáěýážkkkikikřkkkkkkřkikikkkřžřióůáýákkiěikkřkkřáěřkiýikřkiřikžiřikkikřiřkkkk*žkkkkkk 


`; (STRELA HS LHS LCS LCR HCR HSI1l1 LVS HSI2 HSR LSI1 LSI2 
; 051 US) - функция создания параметрического изображения 
; стрелы экскаватора 
; Аргументы функции: 
; HS - ширина нижнего колена стрелы у опоры 
; LHS - длина нижнего колена стрелы 


154 Создание параметрических изображений объекта 
—— У А —ААААА/———/—/— 


US 


Рис. 3.19. Параметрическое изображение стрелы экскаватора 


LCS - расстояние от MATH стрелы до шарнира крепления 
нилиндра стрелы 


; LCR - расстояние от NATH до оси шарнира крепления 


цилиндра рукояти 


; ECR - расстояние от оси нижнего колена стрелы до шарнира 


крепления гидроцилиндра рукояти 

ESIL - ширина нижнего колена стрелы у изгиба 

LVS - длина верхнего колена стрелы 

HSI2 - нирина верхней части стрелы у изгиба 

HESR - ширина верхней части стрелы у рукояти 

[511 - длина изогнутой части нижнего колена стрелы 

LSI2 - длина изогнутой части верхнего колена стрелы 

051 - угол между верхней и нижней частями стрелы 

US - угол наклона нижней части стрелы 

хххххххкккхккххххкхккхккххххкхкххкккхкххкхххххХхххххххххххХАКХХХКККХКХКХхХХхХХХК 
DEFUN STRELA (HS LHS LCS LCR HCR HSI1 LVS HSI2 HSR LSI1 Ь$Т2 951 US) 
(SETQ BC (POLAR BS US LCS) 

T1 (POLAR BS (+ US (/ PI 2)) (/ HS 2)) 
T8 (POLAR BS (+ US (* 1.5 РТ)) (/ HS 2)) 
BS1 (POLAR BS US LHS) 
T2 (POLAR BS1 (+ US (/ PI 2)) (/ HSI1 2)) 
T7 (POLAR BS1 (+ US (* 1.5 PI)) (/ HSI1 2)) 
BS2 (POLAR BS1 0$ 1511) 
US2 (- (+ US US1) РТ) 
BS3 (POLAR BS2 US2.LSI2) 
T3: (POLAR BS3 (+ US2 (/ PI 2)) (/ HSI2 2)) 
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T6 (POLAR В$3 (+ US2 (* 1.5 PI)) (/ HSI2 2)) + 
BSR (POLAR В$3 052 LVS) 
T4 (POLAR BSR (+ 052 (/ PI 2)) (/ HSR 2)) 
T5 (POLAR BSR (+ US2 (* 1.5 PI)) (* 0.5 Н$В} } 
) | 
(SETQ T9 (POLAR BS US LCR) 
BCR (POLAR T9 (+ US (/ PI 2}) HCR) 
) ь 
(СОММАМО. "PLINE" T1 "W" 0.10.1 T2 "АВС" T3 "LINE" T4 
"АВС" T5 "LINE" T6 "ARC" T7 "LINE" T8 "ARC" T1 "" 
"CIRCLE" BS (* 0.2 HS) "CIRCLE" BSR (* 0.2 HSR) 
| | 
) 


(SETQ BS ' (30 30)) ; установка базовой точки стрелы 

(STRELA 15 100 110 1305 30 100 30 10 10 10 2.5 0.6) ; вызов функции 

(COMMAND "ZOOM" "А") | 

Параметрическое изображение рукояти экскаватора представлено на 
рис. 3.20. 


Рис. 3.20. Пораметрическое изображение рукояти экскавстора 


3.6.7. Программа параметрического изображения 
рукояти экскаватора 


| ххх хххкхккккКхххкКкКЖХхХКККККККХХКККХ КК КкКкККхХКККККХ 
; (КОКО LR HRS HRK USR HHR LRG URG HRG 0$2 LRC ОВС ) - 

; функция создания параметрического изображения рукояти 
эскаватора 

;‚ Аргументы ‘функции: 

; LR - длина рукояти 

; HRS - ширина рукояти у стрелы 

; HRK - ширина рукояти у ковша 


~a 
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USR - угол между стрелой и рукоятью 
HHR - расстояние от шарнира до низа 
LRG - расстояние до крепления штока 
URG - угол крепления штока гидроцилиндра 
HERG - ширина рукояти в месте крепления штока 
US2 - угол наклона рукояти к стреле 
LRC - расстояние от шарнира до крепления гидроцилиндра ковша 
URC - угол крепления гидроцилиндра ковша 
ххх ккал ххххкакххаххаккхкхххххххххххаях 
(DEFUN RUKO (LR HRS HRK USR HHR LRG ОВС HRG 0$2 LRC URC) 
(SETQUR (+ US2 PI USR) 
BRK (POLAR BSR UR LR) 
T1 (POLAR BSR (- UR (/ PI 2)) HHR) 
T4 (POLAR BSR (- UR (* 1.5 PI)) (- HRS HHR)) 
BC1 (POLAR BSR (- URG (- (* 2.0 PI) 0В)) LRG) 
T2 (POLAR ВС1 (- URG (- (* 1.5 PI) UR)) (/ HRG 2})} 
ТЗ (POLAR BC1 (- URG (- (è 2.5 РТ) 0В}) (/ HRG 2)) 
T5 (POLAR BRK (- UR (> 1.5 PI)Ì) (* 0.5 HRK)) 
тб (POLAR ВВК (- UR (*0.5РТ)) (* 0.5 HRK)) 
BC BCR 
LRCO LRC 
URCO URC) 
(COMMAND "PLINE” ТЗ "W" 0.1 0.1 T4 T5 
"ARC" Тб "LINE" T1 T2 
"АБС" T3 "" 
“CIRCLE” ВС1 (* 0.2 HRG) 
"CIRCLE" BRK (* 0.2 HRK) 
"CIRCLE" BSR (* 0.1 HRS) 


® j чз о ет: то ®о т) чо. o 


) 
) 
(SETQ BSR '(80 30)) ; установка базовой точки рукояти 
(RUKO 100 30 102.57 603.0 15 0.61 35 1.5) ; вызов функции 
(COMMAND "ZOOM" "А") 
Параметрическое изображение ковша представлено на рис. 3.21. 


3.6.8. Программа параметрического изображения 
ковша экскаватора 


. АКК ЕКАККККККККЕКИККККККККККККККККЖККККККЕКККККККККККХХ 
d 


; (KOV LK URK HK LZU HZ HG ВК) - Функция создания 
; параметрического изображения ковша | 

; Аргументы функции: 

; LK - длина ковша по оси X 
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Рис. 3.21. Пораметрическое изображение ковша 


URK - угол между рукоятью и ковшом 
НК - высота ковша 
LZU - длина зуба 
‚; НА - ширина основания зуба 
; НС - расстояние от крепления ковша до цилиндра 
. RK - расстояние от крепления ковша до линии Т1-Т2 
à хххххххххххххххххххххххххххххххххххххххкхххххххххххххххххяххХхххххАхХххХхХ 
(DEFUN KOV (ГК ОВК НК LZU HZ HG ВК} 
(SETQUK (- (+ UR ОВК) РТ) 
T1 (POLAR BRK ОК RK) 
TZ (POLAR BRK UK LK) 
TZ1 (POLAR TZ (- UK (/ PI 2)) LZU) 
T22 (POLAR BRK UK (- LK Н2)} 
TC1 (POLAR T1 (- UK (* 1.5 PI)) HG) 
BC1 TC1 
BC (POLAR BSR (+ UK 0ВС0) LRCO0) 


T о» we 


™ p 


) 
(COMMAND 
"PLINE" T1 "W" 0.10.1 TC1 "АВС" TZ "LINE" Т71 TZ2 BRK "") 
) 
(SETQ UR0.0 
URCO 30 
BSR ' (80 30) 
LRCO 1.5 
BRK '(20 40)) 
(KOV 50 3.0 40 10 3 10 5) 
(COMMAND "ZOOM" "А") 
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и LC 
T11 ray | 11 LKC1 


T61 
S=; k 
Ч 
T71 
Рис. 3.22. Параметрическое изображение гидроцилиндра 


Параметрическое изображение гидроцилиндра представлено на рис. 3.22. 


3.6.9. Программа параметрического изображения 
гидроцилиндра 


ххх кххххххххкхххххххххххххххххххххХхХхХх 
s 


; (GCL LC LKC DC DC1 LKC1) - функция создания 
; параметрического изображения гидроцилиндра 
; Аргументы функции: 
; ВС - точка крепления гидроцилиндра 
; BCl - точка крепления штока гидроцилиндра 
; LC - gma гидропилиндра 
; ГКС - ллина крепления цилиндра 
; DC - диаметр гидроцилиндра 
; 0С1 - диаметр штока цилиндра 
ТКС] - длина крепления штока 
ххх КХхХХАХХХХКХХХХХХХ 
(DEFUN GCL (LC LKC DC DC1 1КС1) 
(SETQ UC (ANGLE BC BC1) 
PIO5 (* PI 0.5) 
TC (POLAR ВС UC LKC) 
T1 (POLAR TC (- UC (* 1.5 PI)) (/ DC 2)) 
T11 (POLAR T1 (+ UC PI) LKC) 
T2 (POLAR T1 UC LC) 
T4 (POLAR TC (- UC 2105) (/ DC 2)) 
T41 (POLAR T4 (+ UC PI) LKC) 
T3 (POLAR T4 UC LC) 
TCL (POLAR TC UC LC) 
T5 (POLAR TCL (- UC (* 1.5 PI)) (/ DC1 2)) 
T8 (POLAR TCL (- UC PI05) (/ DC1 2)) 
LC1 (- (DISTANCE BC BC1) LKC LC 1КС1) 
T6 (POLAR T5 UC LC1) 


k ъу 
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T61 (POLAR T6 UC LKC1) 
T7 (POLAR T8 UC LC1) 
T71 (POLAR T7 UC LKC1) 
) 
(COMMAND 
"PLINE" T1 "W" 0.1 0.1 T2 ТЗ T4 T1 T11 "ARC" T41 "LINE" T4 "* 
"PLINE" T6 "W" 0.1 0.1 T5 T8 T7 T6 T61 "ARC" T71 "LINE" T7 "" 
"CIRCLE" BC (* LKC 0.5) "CIRCLE" BC1 (* LKC1 0.5) ) 
) 


(SETQ BC ' (30 30) ; точка крепления гидроцилиндра 
ВС1 ' (130 30)) ; и штока гидроцилиндра 
(GCL 50 5 20 10 3} ; вызов Функции 


(COMMAND "ZOOM" "А"} 


Координаты точек BC и ВС1 определяются до вызова функции созда- 
ния параметрического изображения гидроцилиндра. 


3.6.10. Программа параметрического изображения 
общего вида экскаватора 


ххххххххххххххххххххххххххххххххххххххххкхххххххххххххххжхххххххХхХххх 


; Комплекс функций для создания параметрического изображения 
; общего вида одноковшового гидравлического экскаватора 


; (СС...) - функция параметрического изображения гидроцилиндра 
; (KOV...) - функция параметрического изображения ковша 

; (КОКО...) - функция параметрического изображения 

; рукояти экскаватора 

; (STRELA...) - функция параметрического изображения 

; стрелы экскаватора 

; (GUSH...) - функция параметрического изображения 

; гусеничного хода 

; (РОУРГ..) - функция параметрического изображения 


; поворотной платформы 
‚ ХАХАХХХАХААХХ КАХА АХ ХХХ АХКХХХХХАХХХАХХХХХХХХХХХХХХХХАХХХХХХХхХхХХХ 
(DEFUN ЕСЗАС () 
(ЗЕТУАК "СМБЕСНО" 0) 
(ЗЕТУАВ "ВЬТРМОШЕ" 0) 
(GUSH 120 10 200 30010}. 
(РОУРТ, 109 180 50 60 50 100 50 60 20 80 10) 
(ЗТВЕЬА1 15 100 110 130 5 25 100 25 10 10 102.5 1.2) 
(GCL 50 5 10 5 3) 
(RUKO 100 30 10 2.5 7 60 3.0 15 0.41 35 1.5 ) 
(GCL 50 5 10 5 3) 


Meed ОБА 
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(KOV 50 2.4 40 10 3 10 5) 
(GCL 50 5 10 5 3) 
(COMAND "ZOOM" “Е") 
(PRIN1) 
) 
(ECSAC) ; вызов функции 
После вызова функции (ЕСЗАС) на экране появится параметрическое 
изображение общего вида гидравлического экскаватора (рис. 3.23). 


Рис. 3.23. Результат выполнения функции (ЕСЗАС] 
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В этой главе рассматриваются процес- 
сы создания систем обработки инфор- 
мации, представленной в виде символов 
ичисел, в том числеаналитических npe- 
образований алгебраических выраже- 
ний. Здесь же говорится об обработке 
статистических данных и их графичес- 
ком изображении, создании простейших 
баз данных и др. 
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4.1. Преобразование алгебраических 
выражений 


Рассмотрим основные этапы создания системы преобразования алгебраи- 
ческих выражений. Напомним, что алгебраическое выражение — это выра- 
жение, составленное из букв (символов) и чисел, соединенных знаками 
действий сложения, вычитания, умножения, деления, возведения в целую 
степень и извлечения корня (показатели степени и корня должны быть 
постоянными числами). Если некоторые из букв (или все) считать пере- 
менными, то алгебраическое выражение есть алгебраическая функция. 
Ограничимся исследованием алгебраического выражения с одной пере- 
менной и алгебраической функции с одной переменной. 


4.1.1. Постановка задачи 


Разработать фрагменты системы для автоматизации обработки алгебран- 
ческих выражений, представленных в виде символов и чисел. Исходные 
и конечные выражения должны быть представлены в обычном для пользо- 
вателя виде (в инфиксной форме). В процессе вычислений необходимо пре- 
дусмотреть упрощение алгебраических выражений, использование в алгеб- 
раических выражениях, кроме операций сложения, вычитания, умножения 
п деления, операций возведения в целую степень и дифференцирования. 

Необходимо обеспечить возможность ввода нескольких исходных ана- 
литических выражений в однои строке. 


4.1.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Будем считать, что все составляющие алгебраических выражений отделя- 
ются друг от друга пробелом. Разработаем функцию аналитических пре- 
образований (ANALITIC), которая будет считывать исходные алгебраи- 
ческие выражения из файла, например, ANALITIC.DAN. Результаты 
вычисления и преобразования алгебраических выражений должны выво- 
диться в файл, например ANALITIC.REZ. В качестве знака операции во3- 
ведения в степень будем использовать знак ^, операцию дифференцирова- 
ния обозначим символом О, операцию присваивания - знаком =. Отделять 
аналитические выражения будем с помощью знака : (двоеточия). 

Установим следующий порядок выполнения действий над аналити- 
ческими выражениями: / * -+=:0. 

Для упрощения программы будем использовать бинарные операции, 
то есть операции с двумя аргументами. В таком случае отрицательное зна" 
чение символа, например, —5 следует записывать в виде 0-5. 
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4.1.3. Разработка алгоритмов и комплекса функций 
для преобразования аналитических выражений 


Рассмотрим вначале алгоритм преобразования алгебраических выраже- 
ний из инфиксной формы в префиксную. Алгебраические выражения за- 
писываются, как правило, в инфиксной форме, например: 

A*5+B 

Язык AutoLISP работает с выражениями в префиксной форме, то есть 
выражения имеют следующий вид: 

(ЖА (+ 5 B)) 

Для преобразования используем промежуточный буфер — стек, B KOTO- 
ром сохраняется знак операции. Первоначально стек пустой (NIL) и выра- 
жения в префиксной форме — (NIL) не существует. Из выражения в HH- 
фиксной форме слева направо последовательно выбираем элементы 
выражения (символы, числа, знаки операций) и переносим в выражение 
в префиксной форме. При этом время от времени используем стек: 

если элемент — символ или число, его помещают прямо в список спра- 

ва (выражение в префиксной форме); 

 ссли элемент - знак операции, его помещают или в список справа (вы- 

ражение в префиксной форме) или в стек: 

e если приоритет перемещаемого знака операции выше приоритета 
знака операции, находящегося в верхней ячейке стска, знак операции 
перемещается в стек; 

e если приоритет перемещаемого знака операции ниже или равен при- 
оритету знака операции, находящегося в верхней ячейке стека, пре- 
фиксная форма формнруется следующим образом: первым элемен- 
том списка становится первый элемент стека, затем второй и первый 
элементы списка в префиксной форме, вслед за ними остальные эле- 
менты. 

если выражение пусто, а стек не пустой, префиксная форма Формиру- 

ется так: первым элементом списка становится первый элемент стека, 

затем второй и первый элементы списка справа (выражение в пре- 
фиксной форме), затем остальные элементы. 

В стеке накапливаются знаки операций, начиная с наиболее низких при- 
оритетов и кончая высшими. 

После того как все символы и числа будут перенесены в список справа 
(выражение в префиксной форме), начнем последовательный перенос зна- 
ков операций из стека. При этом знаки операций будем извлекать из стека 
по принципу «последний пришел, первый вышел». 

Для определения приоритета операций создадим функцию (ОТО...). 


6* 
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(SETQ ZNAK '(/*-+=:0)) ; приоритет операций 

(DEFUN OLD (0Р1 0Р2) ; определение приоритета операций ` 
(OR (NULL OP2) (MEMBER ОР2 (MEMBER OP1 7МАК)))} 

) 


Разработаем функцию (INFPREE..) преобразования аналитического 
выражения S из инфиксной формы в префиксную SP, используя проме- 
жуточный буфер - стек ST. 

(DEFUN ТМЕРВЕЕ (SP ST S) 
(COND 
( (NULL S) (IF (CAR ST) (PR SP ST S) (CAR SP))) 
( (ATOM S) S) 
( (ATOM (CAR $)) 
(COND 
( (NOT (MEMBER (CAR S) ZNAK) ) 
(INFPREF (CONS (CAR S) SP) ST (CDR S)}) 
( (OLD (CAR S) (CAR ST)) 
(INFPREF SP (CONS (CAR S) ST) (CDR S))) 
(T (PR SP ST 5) )) 
) 
(T (INFPREF (CONS (INFPREF NIL '(МТЬ} (CAR $)) SP) ST (CDR $)))) 


) 
(DEFUN PR (SP ST S) 
(INFPREF (CONS (LIST (CAR ST) (CADR SP) (CAR SP)) 
(CDDR 5Р)) (CDR ST) $} 
) 

Далее разработаем функции для выполнения основных операций с вы- 
ражениями, представленными в виде символов и чисел. Используя рекур- 
рентную формулу X" = X * X™i, определим правила возведения выраже- 
ния в целое число раз: 

(DEFUN ^ (ХУ) ; функция возведения X в целое число раз 
(COND ((EQ Y О} 1) 
(T (ХХ (-У1)))) 


Правила сложения выражений, представленных в виде символов и чисел: 

e если X — число и оно равно нулю, то сумма X и У равна У; 

e если У — число и оно равно нулю, то сумма X и У равна X; 

e если Хи У - числа, то их сумма равна (+ X У); 

e если Хи У - списки, то необходимо провести вычисление их, а затем 
сформировать обращение к функции сложения; 

e если X - список, то необходимо провести вычисление его, а затем 


сформировать обращение к функции сложения; 
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e если У — список, то необходимо провести вычисление его, а затем 
сформировать обращение к функции сложения; 
° если все вышеперечисленные условия не выполняются, следует chop- 
мировать обращение к функции сложения. 
Соответствующая функция сложения выражений, представленных 
в виде символов и чисел, будет выглядеть следующим образом: 
(DEFUN U+ (X Y) 
(COND ( (AND (NUMBERP X) (ZEROỌP X)) Y) 
( (AND (NUMBERP Y) (ZEROP Y)) X) 
( (AND (NUMBERP X) (NUMBERP Y)) (+ ХУ)) 
( (AND (LISTP X) (LISTP У) ) | 
(LIST '+ (EVALS X) (EVALS У) )) 
( (LISTP X) (LIST '+ (EVALS X) Y)) 
( (LISTP Y) (LIST '+ X (EVALS У))) 
(T (LIST '+ХУ)) 


) 
Правила вычитания выражений, представленных B виде символов 
н чисел: 
° если X и У равны, то результатом вычитания будет 0; 
если У — число и оно равно нулю, то результат будет равен X; 
° если X H У - числа, то их разность равна (- X У); 
° если X и У - списки, то необходимо провести вычисление их, а затем 
сформировать обращение к функции вычитания; 
если X — список, то необходимо провести вычисление его, а затем 
сформировать обращение к функции вычитания; 
° если У — список, то необходимо провести вычисление его, а затем 
сформировать обращение к фупкции вычитания; 
° если все вышеперечисленные условия не выполняются, следует Chop- 
мировать обращение к функции вычитания. 
Соответствующая функция вычитания выражений, представленных 
в виде символов и чисел, будет выглядеть следующим образом: 
; функция вычитания символьных выражений 
(DEFUN U- {X Y) 
(COND ((ЕОЧАЬ X Y ) 0) 
( (AND (NUMBERP Y) (ZEROP Y)) X) 
( (AND (NUMBERP X) (NUMBERP Y)) {- X Y)) 
( (AND (LISTP X) (LISTP Y)) 
(LIST '- (EVALS X) (EVALS Y))) 
((LISTP X) (LIST '- (EVALS X) Y)) 
( (LISTP Y) (LIST '- X (EVALS У) }) 


3 e д EZ 
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(T {LIST '-ХУ))) 
) 
Правила умножения выражений, представленных в виде символов 
и чисел: 
e если Ñ равен 1, то результатом умножения будет У; 
® если Y равен 1, то результатом умножения будет X; 
® если Х или Y — число и оно равно нулю, то результат будет равен 0; 
e если Х и Y - числа, то результат равен (* X Y); 
e если Ñ и Y - списки и они равны, то сначала необходимо провести Bbl- 
числение Х, а затем сформировать обращение к функции возведения 
в степень; 
e если X и Y — списки, то необходимо провести вычисление X и У, а 3a- 
тем сформировать обращение к функции умножения; 
e если X — список, следует провести его вычисление, а затем сформиро- 
вать обращение к функции умножения; 
e если У — список, то необходимо провести его вычисление, а затем 
сформировать обращение к функции умножения; 
e если Х равен Y, то необходимо сформировать обращение к функции 
возведения в степень; 
e если все вышеперечисленные условия не выполняются, следует сфор- 
мировать обращение к функции умножения. 
Соответствующая функция умножения выражений, представленных 
в виде символов и чисел, будет выглядеть следующим образом: 
; Зункция умножения выражений, представленных в виде 
> CZNBOJQE и чисел 


) 
ra (END (МОМВЕВР X) (ZERO? X)) 
(END (МОМЕЕКР Y} (ZEROP Y))) 0) 
( (END (NUMBERP X) (NUMBERP У)) (* X Y)) 
( (290 (LISTP X} (LISTP Y) (EQUAL X \У)) 


(LIST '^ (ЕУАЬЗ X) 2)) 
((ЕНО (LISTP Х) (LIST? Y)) 

(LIST '* (EVALS X) (EVZLS Y))) 
((LISTP X) (LIST '* (EVZLS X) 1)) 
((LISTP Y) (LIST '* X (EVALS 1))) 
( (EQUŁL X Y) (LIST '^ X 2)) 

(T (LIST '* X Y)) 
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Правила деления выражений, представленных в виде символов и чисел: 
если X — число и оно равно 0, то результат деления равен 0; 
e если У — число и оно равно 0, то результат деления равен ‘inf; 
e если У равен 1, то результатом деления будет X; 
° если X и У равны, то результат равен 1; 
e если X и У - числа, то результат равен (/ X У); 
° если X и У — списки, то необходимо провести вычисление X и У, а за- 
тем сформировать обращение к функции деления; 
° если X — список, то необходимо провести его вычисление, а затем 
сформировать обращение к функции деления; 
. если У — список, то необходимо провести его вычисление, а затем 
сформировать обращение к функции деления; 
° если все вышеперечисленные условия не выполняются, следует chop- 
мировать обращение к функции деления. 
Соответствующая функция деления выражений, представленных в виде 
символов, будет выглядеть следующим образом: 
; функция деления выражений, представленных в виде 
‚ символов и чисел 
(DEFUN U/ (ХУ) 
(COND ( (AND (NUMBERP X) (ZEROP X)) 0) 
( (AND (МОМВЕБР Y) (ZEROP Y)) "INF) 
( (EQUAL Y 1) X) 
( (EQUAL ХУ) 1) 
( (AND (NUMBERP X) (NUMBERP Y)) (/ X Y)) 
( (AND (LISTP X) (LISTP Y)}) 
© (LIST '/ (EVALS Х} (EVALS Y))) 
( (LISTP X) (LIST '/ (EVALS X) Y)) 
((LISTP Y) (LIST '/ X (EVALS У) )) 
(T (LIST '/ X Y))) 
) 
Правила возведения в целую степень выражений, представленных 
в виде символов и чисел: 
° если X равен 1, то результат возведения в степень равен 1; 
если У равен 1, то результат возведения в степень равен Х; 
° если X - число и оно равно нулю, то результат будет равен 0; 
° если У — число и оно равно нулю, то результат будет равен 1; 
если X и У — числа, то результат равен (^ X У); 
e если X и У - списки, необходимо провести их вычисление, а затем 
сформировать обращение к функции возведения в степень: 
° если X — список, необходимо провести его вычисление, а затем chop- 
мировать обращение к функции возведения в степень; 
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e если У — список, необходимо провести его вычисление, а затем сфор- 
мировать обращение к функции возведения в степень; 
° если все вышеперечисленные условия не выполняются, следует chop- 
мировать обращение к функции возведения в степень. 
Соответствующая функция возведения в степень выражений, представ- 
ленных в виде символов и чисел, будет выглядеть так; 


(TCEFUN U^ (ХУ) ; функция возведения в целую степень 
(COND ( (EQUAL X 1) 1) 
( (EQUAL Y 1) X) 
( (EQUAL Y 0) 1) 
( (3ND (NUMBERP X) (ZEROP X)) 0) 
( (AND (NUMBERP У) (ZEROP Y)})) 1) 
( (AND (NUMBER? X) (NUMBER? Y)) (^ X Y)) 
( (AND (LIST? X) (LISTP Y)) 
(LIST '^ (EVALS X) (EVALS У))) 
( (LIST? X) (LIST '^ (EVALS X) У)) 
( (LIST? Y) (LIST '^ X (EVZLS У))) 
(T (LIST "=X YJ) 


Функции разделения выражений и присваивания будут выглядеть так: 


а ; функция разделения выражений 
Y) 
(DEFUN U= (X Y) ; функция присваивания 
(ТЕ (BOUND? 'Х) 
(ТЕ (ASSOC X LXY) 
=" 


(SETQ LXY (SUBST (LIST X Y) (ASSOC X ЦХУ) LXY)) 
(SETQ LXY (CONS (LIST X Y) LXY)) 


ERROR "~3~S НЕЛЬЗЯ ПРИСВОИТЬ ЗНАЧЕНИЕ" X )) 
) 

Определим функцию (EVALD...) для вычисления выражений симво- 
лов, представленных в виде дерева в префиксной форме, и функцию 
(ЕУАТУ...) для вычисления ветвей дерева. 

Предварительно создадим ассоциативный список ЕМ в виде: 

'((+ U+) (- U-) (* U*) (/ U/) (^ U^) (= U=) (:0:)) 
(SETQ FN (MAPCAR 'CONS '(+-*/^=:) 
' (U+ U- U* U/ U^ U= U:)}) 
) 
; функция вычисления дерева - бинарного списка в префиксной форме 
(DEFUN EVALD (X / УТ) 
(COND ((NUMBERP X) X) 


Преобразование алгебраических выражений 169 


( (ATOM X) (ТЕ (SETQ Y1 (CADR (ASSOC X LXY))) 
(EVALD Y1) X)) 
(T (EVALV (NTH 0 X) (МАРСАВ (FUNCTION EVALD) (CDR X))))) 
) 
‚; функция вычисления ветвей дерева 
(DEFUN EVALV (OPER ARGS / ОР) 
(SETQ OP (CDR (ASSOC OPER FN) )) 
(ТЕ OP (APPLY OP ARGS) (LIST OP (EVALD (NTH 0 ARGS) ) 
(EVALD (NTH 1 ARGS)))) 
) 
Функция преобразования префиксной формы выражений B инфиксную 
и функция удаления лишних скобок представлены ниже: 


(DEFUN РВЕТМЕ (5) ; Функция преобразования $ 
; в инфиксную форму 
(IF (АТОМ $) $ (APPEND (DELOP (NTH 0 $) (NTH 1 §)) 
(LIST (NTH 0 S)} 
(DELOP (NTH 0 S) (NTH 2 S)})}) 
) 
(DEFUN DELOP (OP S / S1) ; функция удаления лишних скобок 
(SETQ 51 (PREINF 5} } 
(ТР (OR (АТОМ $1) (OLD OP (NTH 1 5$1))) 
(LIST S1) S1) 
) 


Программа преобразования аналитических выражений представлена 
HHE. 


4.1.4. Программа преобразования аналитических 
выражений 


хххххххххххххххххххххххххххххххххххкхххкхххххххкххххххххкхкхххххххххх 


; Программа преобразования аналитических выражений ANALITIC 
ххххххххххххкхххххкхххххххххххххххххххххххххххххххххххххАХХХАХКХХХХх 
; Возможные формы записи выражений в файле АМАГТТТС. БАМ 

; А=4| или А=4:С=6: ВЕСА: ЕЕС+ВЛЕ 


;С=6 | 
; ВЕСТА 
‚ ЕЕС+ВУЕ 


; Результат преобразования записывается в файл АМАГТТТС. КЕ? в виде: 
; (6 + 1296 /Е) 


; Перечень используемых функций 
; (ТМЕРВЕР SP ST 51) - функция преобразования инфиксной формы 
записи выражения $51 в префиксную SP в виде бинарного списка, 


= 


ъ-ф 
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например, выражение '(С+А*р) преобразуется в '(+ C (* A D)) 
(OLD ОР1 0Р2) - функция определения приоритета операций 

(U+ ХУ) - Функция сложения выражений, представленных в виде 
символов и чисел 


(U- ХУ) - функция вычитания выражений, представленных в виде 
символов и чисел 


(U* ХУ) - су=кциа умножения выражений, представленных в виде | 
симзолоз и чисел 


(U/ X Y) - фу=кция деления выражений, представленных 


те 


; 
; 
; 
; 
; 
; 
; (U^ X Y) - бсункния возведения выражения в целое число раз 
; 
; 
; 


3 E символов и чисел 
(EYALS X / 02)- сункция упрощения алгебраического выражения 
(U: ХУ) - оункция сазделения выражений 
(U= X Y) - оункция присваивания 
(EVALS X) - оункция вычисления выражений, представленных 
; в Иде символов 
; (EVALD X) - оу=кция вычисления дерева выражений 
; (2КЕТМЕ 5)- оункиия поеобразования выражения S 


= в верен Форму 
S) - сункция удаления лишних скобок 
ai ARGS ) - ÒYHXUMA вычисления ветвей дерева 


ре, - бункция считывания строки в виде списка из файла 
ххх кк кк кхххххкххххххххххкхххАхххХххХхХхххХхХАХхХхХхХхААхХхХхххХ 


UJ 
(Ti 
' — 
tUJ 
KE E 


— = ™ o и че ъ-е Г] 


SETQ ДМАК '(^] *-+=:)) ; список приоритета операций 
DEFUN ТМЕРВЕЕ (SP ST 5) 
(COND 
( (NULL S) (IF (CAR ST) (PR SP ST S) (CAR 5$Р))) 
( (ATOM S) S) 
( (TOM (САВ 5}) 
(COND 


( (NOT (MEMBER (CAR S) ZNAK) ) 
(INFPREF (CONS (CAR S} SP) ST (CDR S§)}) 
( (OLD (CAR $5) (CAR ST) ) 
(INFPREF SP (CONS (CAR S) ST) (CDR 5)}} 
(T (PR SP ST 5) }}) 
(T (INFPREF (CONS (INFPREF NIL '(NIL) (CAR 5)) SP) 
ST (CDR S)})})) 
) 
(DEFUN PR (SP ST S) 
(INFPREF (CONS (LIST (CAR ST) (CADR SP) (CAR SP)) 
(CDDR SP)) (CDR ST) S) 
) | 
; Функция определения приоритета операций 
(DEFUN ОБО (OP1 OP2) 
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(OR (NULL OP2) (MEMBER OP2 (MEMBER OP1 7МАК})} 
) 
(DEFUN ^ (X Y) 
(COND ((EQ Y 0) 1) 
(T (*X(^X(-Y1)))) 
} 
) | 
; функция сложения выражений, представленных в виде 
; символов и чисел 
(DEFUN U+ (ХУ) 
(COND (.(AND (NUMBERP X) (ZEROP X}) Y) 
( (AND (NUMBERP Y) (ZEROP Y)) X) 
( (AND (МОМВЕКР X) (NUMBERP У}) (+ X Y)) 
( (AND (LISTP X) (LISTP У) } 
(LIST '+ (EVALS X) (EVALS Y))) 
( (LISTP X) {LIST '+ (EVALS X) Y)) 
( (LISTP Y) (LIST '+ (EVALS Y) X)) 
(T (LIST '+ X Y)) 
) 
) 
; функция вычитания выражений, представленных в виде 
; символов и чисел 
(DEFUN U- (ХУ) 
(COND ( (EQUAL ХУ } 0) 
( (AND (NUMBERP Y) (ZEROP Y)) X) 
( (AND (NUMBERP X) (NUMBERP Y)) (- XY)) 
( (AND (LISTP X) (LISTP Y)) 
(LIST '- (EVALS X) (EVALS У))) 
( (LISTP X) (LIST '- (EVALS X) Y)) 
(({LISTP Y) (LIST '- X (EVALS У) )) 
(T (LIST '- X Y)) 
) 
) 
; функция возведения выражения в целое число раз 
(DEFUN U^ (X Y) 
(COND ((EQUAL X 1) 1) 
( (EQUAL Y 1) X) 
( (EQUAL Y 0) 1) 
( (AND (NUMBERP X) (ZEROP X)) 0) 
( (AND (NUMBERP У) (ZEROP Y)) 1) 
( (AND (NUMBERP X) (NUMBERP Y)) (^ X Y)) 
( (AND (LISTP Х} (LISTP Y)}) 
(LIST '^ (EVALS X) (EVALS У))) 
( (LISTP X) (LIST '^ (EVALS X) У)) 


Japa Oj T O 
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((LISTP У) (LIST '^ X (EVALS У))) 
(T (LIST '^ХУ)) 
} 
) 
z функция умнохения выражений, состоящих из СИМВОЛОВ и чисел 
(DEFUN 0* (X Y) 
(COND ((EQUAL X 1) Y) 
( (EQUAL У 1) X) 
( (OR (AND (NUMBERP X) (ZEROP X)) 
(AND (NUMBERP Y) (ZEROP У)})} 0} 
( (3ND (NUMBERP X) (NUMBERP Y)) (*ХУ)) 
( (AND (LIST? X) (LISTP Y) (EQUAL X Y)) 
(LIST *^ (EVALS X) 2)) 
( (3ND (LISTP X) (LISTP Y)) 
paa '* (EVALS X) (EVALS Y))) 
( (LIST? X) (LIST '* (EVALS X) Y)) 
( (LIST? Y) (LIST '* X (EVALS Y}}) 
( (EQUAL X Y) (LIST '^ X 2)) 
(I (LIST ед) 


) 
; бункция деления выражений, представленных в виде 
; символов и чисел 
(DEFUN 0/ (X Y) 
(COND ( (AND (NUMBERP X) (ZEROP X)) 0) 

( (AND (МОМВЕРР Y) (ZEROP Y)) "INF) 

( (EQUAL Y 1) Z) 

( (EQUAL X Y) 1) 

( (SND (NUMBERP X) (NUMBERP Y)) (/ХУ)) 

( (ZND (LIST? X) (LIST? У)) 

(LIST '/ (EVZLS X) (EVZLS Y}))) 
((LISTP X) (LIST '/ (EVALS X} У)) 
{({(LIST? Y) (LIST "/ X [(EVALS Y))} 

(T {LIST "7 ZYN 
) 
(SETQ FN (MAPCAR 'CONS '(+-*/^) 
Hur U= 0" 97 UFFE) 

; Функция вычисления выражений, представленных в виде 
; символов и чисел 
(DEFUN EVŁLS (X / ОР} 

(SETQ ARGS (CDR X) 

OP (CDR (ASSOC (CAR X) FN) )}) 
(APPLY OP ARGS) 
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; функция разделения выражений 
(DEFUN U: (ХУ) 
Y) 
; функция присваивания 
(DEFUN U= (X Y) 
(ТЕ (BOUNDP 'Х) 
(ТЕ (ASSOC X LXY) 
(ЗЕТО LXY (SUBST (LIST X Y) (ASSOC X LXY) LXY)) 
(SETQ LXY (CONS (LIST X Y) LXY)) 
) 
(ERROR "~%-~S НЕЛЬЗЯ ПРИСВОИТЬ ЗНАЧЕНИЕ" X )) 
(SETQ FN (MAPCAR 'CONS '(+-*/^=:) 
' (U+ U- U* U/ U^ 0=0:))) 
; функция вычисления дерева - бинарного списка в префиксной форме 
(DEFUN EVALD (X / Y1) 
(COND ((МОМВЕБР X) X) 
( (ATOM X) (IF (SETQ Y1 (CADR (ASSOC X LXY))) 
(EVALD Y1) Х)) 
(T (ЕУАГУ (NTH 0 X) (MAPCAR (FUNCTION EVALD) (CDR X))))) 
) 
; функция вычисления ветвей дерева 
(DEFUN ЕУАГУ (OPER ARGS / ОР) 
(SETQ ОР (СОК (ASSOC OPER ЕМ))) 
(IF ОР (APPLY ОР ARGS) (LIST ОР {EVALD (NTH 0 АВС5) ) 
(EVALD (NTH 1 АКС$)))) 
) 
; функция преобразования выражения S B инфиксную форму 
(DEFUN РВЕТМЕ (5) 
(ТР (АТОМ $) $ (APPEND (DELOP (NTH 0 S) (МТН15)}) 
(LIST (NTH 0 5); 
(DELOP (NTH 0 S) (NTH 2 S)))) 
) 
; функция удаления лишних скобок 
(DEFUN ОЕГОР (OP $ / 51) 
(SETQ $1 (РВЕТМЕ 5)) 
(ТР (OR (АТОМ $1) (OLD ОР (NTH 1 $1))) 
(LIST S1) S1) 
) 
; Открытие файла ANALITIC.DAN для считывания исходных данных 
(SETQ FR (OPEN "C:\\ALISP\\ANALITIC.DAN" "г")} } 
; Открытие файла ANALITIC.REZ для записи результатов расчета 
(SETQ FW (OPEN "С: \\АБТЗР\\АМАБТТТС. ВЕЛ" "w")) 
; Создание функции (READL) для считывания строки в виде списка 


174 Создание фрагментов систем обработки информации 


(DEFUN READL () (STRCAT "( " Z" }")) (ТЕХТЗСВ) 
DEFUN ANALITIC (/ 5) 


SETQ LXY k 
(WFILE (NOT (EQ (SETO Z (READ-LINE FR}}) NIL)) 
SRINT '<= ) 
Q 


7 s 


вт pD a = 


=... 


REINF (CADR (CAR (EVALD (ТМЕРВЕЕ NIL ' (NIL) 


(i — 
— 4 J м It) (A) 


т 
tij тр tij 
4] 


arl Г 
8 
ыы a 


ANALITIC) 
Пример ввода выражений, представленных B виде символов и чисел, 
B ran ANALITIC.DAN: 


1-4 


И 
piia 


A 


o ou O 
| 
1 O O` 


ту Е 

Результат вычисления записывается в файл ANALITIC.REZ. 

При использовании интегрированной среды Visual LISP после записи 
функции в файл ANALITIC.LSP без ошибок в окне текстового редактора 
и запуска ее в окне консоли получим следующий результат (рис. 4.1). 


4.1.5. Разработка последовательности действий 
и программы вычисления производных 


алгебраических функций 


Напомним, что алгебраическая функция — это алгебраическое выражение, 
в котором некоторые из букв (или все) переменные. Ограничимся иссле- 
дованием алгебраического выражения с одной переменной, то есть ал- 
гебраической функции с одной переменной. Для упрощения изложения 
используем четыре основные операции - действия: сложение, вычитание, 


умножение и деление. 
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&Yisual LISP Console 


_$ 

_$ 

<= (A = 4) 

<= (C = 6) 

<=: (B= C ^A) 

<= (Е= C+B/F) 


=> (6 + 1296 / F) 
; 25 forms loaded from #<editor “C:/ALISP/ANALITIC.LSP"> 
_$ 3 


Ki EI RENNE | _. ОЙ 


Рис. 4.1. Окно консоли Visual LISP с результатами преобразований 
олгебраического выражения 

В основу аналитического вычисления производпых алгебраических вы- 
ражений с одной переменной положим хорошо известные основные пра- 
вила дифференцирования: 

DCT UAC; 

D(U + V) = 00 + №; 

D(U - V) =DU-DV; 

DIU * V) =DU*V+U*DV; 

DUV) = (DU * V= ов V * yV] ; 

где С — константа; 

О, У - алгебраические функцин одной переменной Х: 

Ч =Е(Х); У =К (Х). 

Для вычисления производной алгебраической функции с одной пере- 
менной необходимо определить вид операции алгебраической функниии, 
а затем в соответствии с видом операции выполнить дифференцирование. 
При разработке программы целесообразно использовать рекурсию — MPO- 
цесс определения функции через саму себя. 

Разработаем функцию (ОТЕ..), которая аналитически вычисляет произ- 
водную от алгебраического выражения с одной переменной. Функция 
(ОТЕ..) имеет два аргумента: первый — алгебраическое выражение, пред- 
ставленное в префиксной форме; второй — переменная, согласно которой 
будет проводиться вычисление производной (дифференицирование). Функ- 
ция (ОТЕ..) будет выглядеть так: 


хххххххххккххххххххххххкххкххххкххккххххкхххххккхккххххххххХхкКхХКХХкХХхХ 


И 


; (DIF Y X) - функция дифференцирования алгебраического выражения 
; У в префиксной форме записи. У представляется в виде бинарного 
; списка любого уровня вложенности, например, '(*Х (*ХХ}), т.е. 
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список каждого уровня имеет только два элемента в списке. 


Х - пасеменная, по которой берется производная 


М 
t 
> kkètikikkkikriikkkkkkkkkkkkkkkěkkkkkkkkkkkkkřžkkkkkkkkkěkkkkkkkkěkkkkkxk 
# 


(DEFUN DIF (УХ) 
TEXTECA) ; переход на текстовый экран 


Ко vj 
Z, 


+ 
> (DIF (NTH 1 Y) X) (DIF (NTH 2 Y) X))) 


— 

Pa a и 
N -j Ц) rje 
m ej IG 
1 
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—. 
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F (NTH 1 Y) X) (DIF (NTH 2 Y) X))) 


(œ 
-j 
N 
e —* 
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3 
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oa 
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E 
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LIGI “J (LISI "= {LIST "* {DIF (NTH_1 Y] X} 
У (LIST ** (NTH 1 Y} (DIF (NTH 2 Y) X))) 
(LIST '* (NTH 1 Y) (МТНТУ))})) 


(DIF '(*X (*XX)} 'X) ; вызов функции 
= X х)) (*Х {+ (*1Х) (*Х1)))) ; результат 


4.2. Обработка статистических данных 


Рассмотрим основные этапы создания системы обработки статистических 
данных. 


4.2.1. Постановка задачи 


Требуется разработать программу (функцию) для автоматизации обработ- 
ки экспериментально-статистических данных. В качестве метода обработ- 
ки этих данных используется метод наименьших квадратов. Программа 
должна определить такие параметры уравнения регрессии, которые обес- 
печат наилучшее расположение линии регрессии среди множества точек 
поля корреляции. Необходимо построить поле корреляции, изобразить на 
нем теоретическую линию уравнения регрессни и само уравнение регрес- 
сии. Для решения задачи используется язык AutoLISP 


4.2.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Ограничимся в данной задаче определением параметров уравнения рс- 


грессии линейного вида 
Y = A, + А, *Х, 
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где А, — свободный член уравнения регрессии; 
А, - коэффициент уравнения регрессии. 
Для определения свободного члена А, и коэффициента уравнения per- 
рессии А, используем общеизвестные не 


N N N N 
X YŠ Xi -9 YX, > Х, М>. ух, -ух ум 
A, = 1=1 зы 1 ~ 1=1 А = d | 
МУХ: - УХ, > X, м>х:- $x $x, 

[=] I=} 1=] 
где М - число пар исходных ая данных; 

Xp У, - значения 1-го факторного и результативного признаков. 

Теснота связи между факторным признаком X, и результативным при- 


знаком У, оценивается коэффициентом корреляции К, который определя- 
ется по Формуле 


Изображение поля корреляции и всех результатов расчета необходимо 
произвести с максимально возможным масштабом увеличения. Уравнение 
регрессии и значение коэффициента корреляции следует изобразить пад 
теоретической линией уравнения регрессии с учетом наклона линии. Для 
решения задачи требуется максимально использовать встроенные функ- 
ции языка AutoLISP. 


4.2.3. Разработка последовательности действий 
обработки экспериментально-статистических данных 


Обработка экспериментально-статистических данных включает следую- 
щие основные этапы: 
определение исходных сумм: 


N N N 
a a l SY= 2Y, АЖ $ХУ = ух, Y, ; SYY = A 
Š = [= l=] 
‘ P параметров уравнения регрессии A, À, и ыы 
корреляции К. 
Формулы для определения Åy Åp К выглядят несколько громоздко. При 
этом отдельные их части повторяются в других формулах. Для упрощения 
расчета введем промежуточные формулы. 


178 Создание фрагментов систем обработки информации 


В таком случае искомые параметры можно будет определить следую- 
щим р 


А =С/А 


К =С//УАхВ 


e изображение поля корреляции. Необходимо предварительно опре- 
делить максимальные значения факторного H результативного при- 
знаков, размеры осей и местоположение начала координат, а затем 
оформить список точек для построения поля корреляции, то есть на- 
глядного представления исходных данных на графике. 

Размеры oceli: OSX = 1,2 Xaxi ОЗУ = 1,2 У, 

Начало координат: Xa = 0,1 Xaxi Yo = 0,1 У, 

° изображение теоретической линии регрессии в поле корреляции и CAMO- 
го уравнения вдоль линии регрессии. Для этого необходимо найти на- 
чальную и конечную точки для прорисовки теоретической линии 
уравнения регрессии. Начальная точка может быть определена из 
уравнения регрессии: 

У = A, +А,*Х при X = 0, а конечная при X = X iay 

Зная значения ординат для начальной ТМ и конечной ТК точек, можно 


определить их координаты: 
* 
(Хо, Yo T Âo) H (Xuax ы Хо, То T А, ыы А, Aad 
Начальную точку ТТ для изображения самого уравнения регрессии 
примем равной (Xo Yo +11 A; 
e формирование надписей вдоль осей Х и У. Для этого необходимо опре- 


делить начальные точки надписей, а сами надписи передаются в мо- 
мент вызова функции. 
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4.2.4. Разработка фрагментов программы для 
обработки экспериментально-статистических данных 


Разработку функции для обработки статистических данных (ММКУ...) на 
языке AutoLISP начнем с определения исходных сумм. При этом будем 
использовать встроенные функции (APPLY...) и (МАРСАК...), которые 
часто называют функционалами. Функиионал - это функция, имеющая 
функциональный аргумент. Под функииональным аргументом понимает- 
ся аргумент, значением которого является функция. 

Функция (APPLY...) — это функционал, который использует для обра- 
ботки списков другие функции. Данную функцию часто называют приме- 
няющим, аппликативным функционалом, поскольку она дает возмож- 
ность работать со списками с наибольшей эффективностью. Функция 
(APPLY...) является функцией двух аргументов. 

(APPLY <‘имя функции> <'(список аргументов)>) — применение за- 
данной функции к списку аргументов. 

Например, сумму X, в нашей задаче можно записать следующим обра- 
30M: 

(SETQ SX (APPLY '+ LX)) 
где LX — список значений факторного признака (X, Х.....). 


N N м 
Для определения сумм > Xi, У X,Y, | У У, 
[=1 


[= [=1 

необходимо составить соответствующие списки LXX, LXY, ГУУ. 

Это легко сделать с помощью функцин (МАРСАК...). 

(MAPCAR <‘имя функции> <'(список аргументов)>...) — выполнение 
заданной функции над первыми элементами списков, затем вторыми и т. д. 

(SETQ LXX (МАРСАК '* LX LX) 
LXY (MAPCAR '* LX LY) 
LYY (MAPCAR '* LY LY) 
) 

где LY — список значений результативного признака (Y, У.....). 

Для проведения последующих расчетов необходимо знать число пар ис- 
ходных данных. Для этого используется встроенная функция (ГЕМСТН...). 
имеющая один аргумент — список. 

(LENGTH <список>) — определение длины списка. 

Данная функция определяет длину списка, а следовательно, число пар 
исходных данных. Эта часть программы (функция) будет выглядеть так: 

(SETQ SX (APPLY '+ LX) SY (APPLY '+ LY) 
LXX (MAPCAR '* LX LX) LXY (MAPCAR '* LX LY) 
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ГУУ (МАРСАК '* LY LY) 5ХХ (APPLY '+ LXX) 
SXY (APPLY '+ LXY) SYY (APPLY '+ ГУУ) 
PIOS (* PI 0.5) N (LENGTH LX)) 

Для определения параметров уравнения регрессии Ap A, и коэффици- 
ента корреляции К используем встроенные функции сложения (+...), 
умножения (*...) и деления ((/...): 

(SETQ A (- (* N 5ХХ) (* SX SX)) 

В (- (* N SYY) (* SY SY)) 
AO (/ (- (* SY SXX) (* SXY SX})} А) 
С (- (* N SXY) (* SX SY)) 
А1 (/ CA) 
R (/С (SQRT (*АВ))) 
) | 

Формирование изображения поля корреляции включает определение 
размеров поля корреляции и собственно вывод графического изображе- 
ния. Размеры поля корреляции представляются максимальными значени- 
ями факторного и результативного признаков, которые вычисляются 
с использованием функций (АРРТУ...) н (МАХ...): 

(SETQ MAXX (APPLY 'МАХ LX) — МАХУ (APPLY 'МАХ LY) 


К (/ 220 MAXX) LX (MAPCAR 'UMN LX) 
KX K i K (/ 170 MAXY) 

KXY (/ K KX) LY (MAPCAR 'UMN LY) 
LT (MAPCAR 'CONS LX LY) TO (LIST 20 20) 

OX (POLAR ТО 0 220) OY (POLAR TO PI05 170) 


) 

С помощью команд графического редактора AutoCAD "ZOOM", "ERASE" 
и "РИМЕ" определим масштаб отображения поля корреляции, удалим все 
объекты внутри заданного окна и выведем оси координат (рис. 4.2). 

(COMMAND "ZOOM" "W" "0,0" "250,200" 
"ERASE" "W" "0,0" "250,200" "" 
"PLINE" ОХ "W" 0.10.1 ТО OY "") 

Формирование изображения поля корреляции осуществляется с помо- 
щью функции (FOREACH T 1Т...), которая из списка ЕТ последователь- 
но выделяет точку T, и команды "POINT", которая рисует точку в поле 
корреляции: 

(FOREACH T LT 
(SETQ T1 (POLAR TO 0 (CAR T)) 
T2 (POLAR T1 PI05 (CDR T)) 


) 
(COM4AND "POINT" T2) 
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Формирование изображения линии уравнения регрессии можно выпол- ` 
нить следующим образом: 

(SETQ TR (POLAR ТО PIO5 (* K A0)) 
УТ (+ (*КАО) (* Al KXY 220)) 
T1 (POLAR TO 0 220) 
T2 (POLAR T1 РТО5 УТ} 

) 

(COMMAND "PLINE" TR "W" 0.2 0.2 T2 =") 

Для изображения над линией самого уравнения регрессии используем 
команду "ТЕХТ", которой, в свою очередь, требуется начальная точка тек- 
ста (ТТ), угол наклона текста UGOL и сам текст. Начальную точку текста 
определим с помощью функции (LIST...): 

(LIST ХО (+ YO (* АО 1.1))} 

Для определения угла наклона уравнения регрессии используем встроен- 
ную функцию (ANGLE T1 T2), которая определяет в радианах угол линии, 
проходящей через точки Т1 и Т2 относительно горизонтальной оси про- 
тив часовой стрелки. Однако угол наклона текста в команде "ТЕХТ" дол- 
жен быть задан в градусах. Следовательно, радианы надо перевести в гра- 
дусы, и это может быть сделано с помощью комбинации функций: 


(/ (* 180 {ANGLE TR Т2)) PI) 


-20.620 


Постоянные затраты на маш.-см., /CA/, р. 


| 27.000 
Грузоподъемность автосамосвала, (5, т 


Рис. 4.2. Изображение поля корреляции, осей координат и уравнения регрессии 
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Текст можно сформировать, используя функцию ($ТВСАТ...). 

(ЭТВСАТ <"текст1"> <"текст2">...) 

Эта функция сцепляет строковые константы (тексты, взятые в двойные 
кавычки) вединый текст — текстовую константу. Присвоим ей имя URAV. 

Допустим, что нам необходимо иметь запись уравнения над линией pe- 
грессии в следующем виде: 


v=0.505 +4.52 *X,R=0.9568 


м 
> U aa 


Эта строка содержит изменяемые значения, поэтому представить ее 
в виде одной строковой константы можно так: 


—. => = o > р] 


Ее T r=" (RIOS A0 2 3) >" (RIOSALA Z] "А" 


Здесь используется функция (ВТО5...). 

(RTOS <действительное число> <формат числа> <точность>) 

Данная функция преобразует действительное число в задапный формат 
числа с указанной точностью, а затем в строковую константу. Если Qop- 
мат числа равен 1, а точность 2, то это научный формат представления 
чисел с точностью до двух знаков после точки. Если формат числа равен 2, 
а точность 3, то это десятичный формат представления действительного 
числа с точностью до 3 знаков после точки. 

Таким образом, определение угла наклона отображения уравнения 
регрессии UGOL и формирование текста уравиения URAV можно пред- 
ставить в следующем виде: 

(SETO  UEAV (5ТЕСАТ " Y =" (RTOS A0 2 3) 
+= [RIOS AL Е "T>" 
"R=" _ (RTOS R 2 3)) 
ОСОБ (/ (* 180 (ANGLE TR T2)) PI) 
TT (LIST 20 (+ 40 (* ŁO K}))} 


n 


) 
Для задания стиля текста и его вывода используем команды графичес- 
кого редактора AutoCAD "STYLE" и "TEXT": 


(COMAND 


4 


E #OTANDRRD" TETA gr tjn et weta mh 
" TT UGOL ОВАУ 
" OZ 0 (RTOS MAXX 2 3) 
" OY 2105 (RTOS МАХУ 2 3)) 
ие что команда "STYLE" имеет следующие параметры: 
° имя текстового стиля — по умолчанию "STANDARD": 
° имя файла шрифта — по умолчанию "ТХТ"; 
° высота шрифта - 4; 
e степень сжатия/расширения - 1; 


[т] + 
жом к 


u а 
=} „9 в B E D 


м 


м. 


£ Sr E n E ba 
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e угол наклона шрифта по умолчанию ноль градусов; 

° порядок записи символов по умолчанию слева направо; 

° вид записи по умолчанию в неперевернутом виде; 

° ориентация записи текста горизонтальная или вертикальная (по умол- 

чанию горизонтальная). 

Для формирования надписей вдоль осей Х и У определим начальные 
точки надписей с помощью прямого их указания, а сами надписи помес- 
тим в переменные ТХ, ТУ: 


(COMMAND "TEXT" "20,10" 0 TX 
"TEXT" "10,20" 90 TY) 


Ниже представлена функция (ММКУ...) расчета параметров уравнения 
регрессии первого порядка и изображения поля корреляции и теоретичес- 
кого уравнения регрессии. 


4.2.5. Программа для обработки экспериментально- 
статистических данных 


3 ххххххххххххххяяккхкххххкхххххххххххххххххххххххххххххХххххххххххХхХХхХХхХх 
; (ММКУ LX LY TX ТУ) - функция расчета параметров уравнения 
; регрессии первого порядка и изображения поля 
; корреляции и теоретического уравнения регрессии 
;‚ Аргументы функции: 
; LX - список значений факторного признака ' (X1 X2...) 
; LY - список значений результативного признака ' (Y1 У2...) 
; TX - поясняющий текст вдоль оси X 
; ТУ - поясняющий текст вдоль оси У 
; Пример вызова функции (ММКУ LX LY) - 
> (MNKV '(2.29 4.57.0 10.0 12.0 27.0) 
Е 00 9.32 11-07 11:62 20,62) 
; "Грузоподъемность автосамосвала, G, т" 
; "Постоянные затраты на.маш.-см., /СА/,р.") 
$ хххххххххххххххххххххххххххххххххххххххххххххкхххххххххххкхххХхХхХхАхКХ 
(DEFUN UMN (X) 
(* XK) 
) 
(DEFUN ММКУ (LX БУ TX ТУ) 
(ЗЕТУАВ "СМОЕСНО" 0) 


> 


(SETQ SX (APPLY '+ LX) ` SY (APPLY '+ LY) 
LXX (MAPCAR '* LX LX) LXY (MAPCAR '* LX LY) 
LYY (MAPCAR '* LY LY) SXX (APPLY '+ LXX) 
SXY (APPLY '+ LXY) SYY (APPLY '+ ГУУ) 


PIUS (*РГО.5) N (LENGTH LX) 
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(SETQ А (- (* N SXX) (* SX 5Х)) 
В (- (* N SYY) (* SY SY}) 
А0 (/ (- (* SY 5ХХ) (* 5ХУ 5Х)} А) 
C (- (* N SXY) (* SX 5] ) 
AL (/ СА) 
R (/ C (SQRT (* A B})) 


} 

(SETQ MAXX (APPLY ‘МАХ LX) MAXY (APPLY 'MAX LY) 
К (/ 220 MAXX) LX (MAPCAR 'UMN LX) 
KXK K (/ 170 MAXY) 
KXY (/ K KX) LY (MAPCAR 'UMN LY) 
LT (МАРСАВ 'CONS LX БУ} TO (LIST 20 20) 
OX (POLAR TO 0 220) OY (POLAR ТО РТОб 170) 


) 

(COMMAND "ZOOM" "W" "0,0" "250,200" 
"ERASE" "W" "0,0" "250,200" "°" 
"PLINE ОХ °W" 0.1 0.1 TO ОУ "") 


(SETQ TR (POLAR TO РТО (* K A0)) 
YT (+ (* K220) (* A1 KXY 220)) 
T1 (POLAR ТО 0 220) 
T2 (POLAR T1 РТО5 YT) 


ЕТО ОРАУ (STRCAT "Y=" (RTOS A0 2 3) 
” +" (RTOS A123] те" 
“ R=" (RTOS R2 3)) 
UGOL (/ (* 180 (ANGLE TR Т2)} PI) 
TT (LIST 20 (+40 (* A0 K)})) 
(CCM4AND "STYLE" nn nn nyn njn nm nn nn nna 
"ТЕХТ" TT UGOL URAV 
"ТЕХТ" OX 0 (RTOS MAXX 2 3) 
"TEXT" OY РТО5 (RTOS MAXY 2 3) 
) 
(COMMAND “TEXT” "20,10" 0 TX 
"TEXT” "10,20" 90 TY) 
) 
(MNKV ' (2.25 4.5 7.0 10.0 12.0 27.0) ; вызов функции 
'’(5.336.8 9.32 11.07 11.62 20.62) 
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"Грузоподъемность автосамосвала, С, т" 
"Постоянные затраты на маш.-см., /СА/, р.") 


После вызова функции (ММКУ...) на экране появится графическое 
изображения поля корреляции, теоретической линии и уравнения регрес- 
сии с рассчитанными параметрами (рис. 4.3). 


20.620 


Постоянные затраты на маш.-см.., /СА/ р. 


Грузоподъемность автосамосвала, С, т 
Рис. 4.3. Результат выполнения функции (ММКУ...] 


4.3. Разработка простейшей реляционной 
базы данных 


Базы данных являются исходным этапом выработки и принятия различ- 
ного рода решений. Рассмотрим основные этапы разработки простейшей 
реляционной базы данных, в основе которой лежит табличная форма пред- 
ставления данных. 


4.3.1. Постановка задачи 


Требуется создать простейшую реляционную базу данных ина основе исполь- 
зования встроенных функций языка программирования AutoLISP. Разраба- 
тываемая база данных должна обеспечить возможность поиска необходимой 
информации, обновления и вывода ее на экран. В качестве исходной инфор- 
мации возьмем технические параметры строительных универсальных экс- 
каваторов, представленные в виде таблицы (см. табл. 4.1). 
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Таблица 4.] 


Обозн. 30-612 


0 
á 


UJ 


Параметры 


Эксплуатационная масса, т 


Вместимость ковша 


aso | 550 | 650 | 720 
9 | 
‚1 


Наиоб. глубина копания, M 


С 
Нк 
Нано. радиус копания, м Rk 7 
i 
N 
т 


4.3.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Наио. высота выгрузки, м 


Мощность двигателя, кВт 


Вия 


Мин. длительность цикла, с 


Данные, собранные в таблице, можно представить: 

° в виде совокупности списка имен параметров; 

t ("Ge "Q" "Hg" "ВК" "НУ" "М" nC") 
° ввиде списков значений параметров для каждого экскаватора. Напри- 
мер, для экскаватора ЭО-5124 этот список будет выглядеть так: 
Е ОР 121-270) 

Используем следующие переменные: 

P — имя параметра; 

PZ - значение параметра; 

LP — список имен параметров; 

LE - список '(Р PZ), состоящий из двух элементов: имени параметра 
P и его значения PZ; 

Г.А — ассоциативный список, состоящий из списков LE. 

Представлять табличные данные в виде списков удобно тем, что 
AutoLISP имеет полный набор функций создания, поиска информации 
в ассоциативных списках по ключу (имени параметра), обновления дан- 
ных в списке, а также другие функции. Ассоциативный список Г.А являет- 
ся хранилищем данных одного столбца таблицы. 


4.3.3. Разработка последовательности действий 
и программы создания базы данных 


Создание простейшей реляционной (табличной) базы данных включает 


следующие этапы: 
e формирование списка имен параметров (ключей); 


» ввод для каждого параметра его значения, 
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e формирование пар (списков), состоящих из имен параметра (ключа) 
и его значения; 

e формирование списка пар — ассоциативного списка. 

Поиск значения заданного параметра включает: 

° поиск пары, содержащей заданный параметр (ключ); 

° выделение из пары значения заданного параметра. 

Обновление данных включает следующие этапы: 

° поиск в ассоциативном списке пар обновляемой пары по заданному 

параметру (ключу); 

e формирование новой пары; 

e замену обновляемой пары в списке пар на новую пару. 

Процесс создания простейшей базы данных, поиск нужного значения 
параметра и обновление проведем в диалоговом режиме. 

Для этого разработаем три функции: функцию создания базы данных 
(SBD...), функцию поиска значения заданного параметра (РВО) и функ- 
цию для обновления даиных (ОВО). 

Сформируем список имен нужных параметров - (LP), например: 

(SETO БР (LIGT "С" "О" "НК" "ВК" "НУ" }} 

Для ввода параметров используем функцию (GETSTRING...), которая 
предназначена для ввода текстовой константы: 

(SETQ PZ (GETSTRING) ) 

Пары (списки), состоящие из имен параметров (ключа) и значения па- 
раметра, создадим с помощью функции (LIST...) - функции формирова- 
ния списка: 

(SETQ LE (LIST P PZ)) 

Создадим ассоциативный список с помощью (CONS...) — фупкции, Ko- 
торая формирует список путем добавления в его начало пового элемента: 

(SETQ БА (CONS LE LA)) 

Ниже представлена функция (SBD...) для создания простейшей базы 
данных в диалоговом режиме. 


4.3.4. Программа создания базы данных 
в диалоговом режиме 


; (SBD LP) - функция создания простейшей базы данных 

; в диалоговом режиме 

; ГР - список вводимых в базу параметров 
хххххххххххххххяхххкхххжхккхххххххххххххххкххкхкхххххххУкхххххххххкхк 
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(DEFUN SED (ПР) 


(SETO LA '()) ; ассоциативный список 

(TEXTSCR) 

(FOREACH Р LP ‚ цикл ввода значений параметров 
(РАТМС (5ТЕСАТ "\п Введите значение параметра " P" = "}) 
(SETQ PZ (GETSTRING) ; значение параметра 

LE (LIST P PZ) ; пары параметр-значение 
LA (CONS LE LA))) ; список nap параметр-значение 
(SETQ LA (REVERSE LA))) ; обращение списка пар 
(SED '("С" "0" "НК" "ВК" "НУ"))  ; вызов функции (SBD...) 


В диалоговом режиме запрашиваются значения следующих Параметров: 
значение параметра С = 14.3 
параметра Q = 0.63 
ачение гараметра НК = 4.8 
начение параметра КК = 7.75 
:е=ние параметра НУ = 4.5 
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Параметры H их значения будут представлены в виде ассоциативного 
списка ГА: 


С sea o Оо ка. ЕВЕ. 75 7802: 58 

Поскольку эта информация относится только к экскаватору ЭО-3122, 
запомним ее в переменной с именем ЕО-3122. 

(SETQ ЕО-3122 LA) 

Для сохранения этих данных они должны быть записаны в файл хране- 
ния данных. Перед использованием базы данных этот файл должен быть 
загружен. 

Функция (SETQ ГА ‘`()) задает пустое начальное значение списка пар 
ассоциативного списка LA. | 

Выражение (FOREACH P ГР...) последовательно в цикле присваивает 
переменной P очередное имя параметра из списка. Далее для этого napa- 
метра выполняются функция (PRINC...) вывода па экран выражения, 
сформированного функцией (УТВСАТ...), функция (LIST...) образования 
пары параметр-значение, функция (CONS...) формирования списка пар 
параметр-значение. 

Функция (REVERSE ГА) изменяет порядок следования элементов на 
обратный. 

Функция поиска значения заданного параметра (PBD) должна начи- 
наться с ввода искомого параметра: 


(SETQ P (СЕТЗТЕТМС "\п Введите параметр (или Enter} ")) 


Отказаться от поиска можно, если нажать клавишу Ещег. Далее с по- 
мощью встроенной функции (ASSOC...) выделим пару по заданному na- 
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раметру (ключу). С помощью функции (CADR...) из пары выделим иско- 
мое значение параметра. 

Функции (PRINC...) и (ЭТВСАТ...) обеспечивают вывод найденного 
значения параметра, например, TC = 25.0. 

Функция поиска значения нужного параметра (РВО) будет выглядеть 
следующим образом. 


4.3.5. Программа поиска данных в базе данных 
в диалоговом режиме 


.‹ хХХхХхЖххххххххххххххххххххххххххххххххххххххххххххххЖжЖжхХхХхХхХхХхХхкКХхХХхХхХХХхХХ 


(PBD ГА) - функция поиска значений нужного 
‚ параметра в базе данных в диалоговом режиме 
; LA - ассоциативный список пар (параметр значение) 
перед использованием функции (PBD) необходимо сфор- 
; мировать соответствующую базу данных функцией (SBD) 
| ххххххкххкххххххххякххххххххххххххххххххххххххххххххххххххххххххххХхХх 
(DEFUN PED (LA) 
(SETQ P (GETSTRING "\п Введите искомый параметр (или Enter) ")) 

(IF (/= (ASCII P) 10) 

(PROGN (SETQ LE (ASSOC P LA) 
PZ (CADR LE)) 
(PRINC (STRCAT P " =" PZ))}) 


% g 


ta 


) 
Допустим, функция (SBD...) сформировала ассоциативный список под 


именем Г.А следующего вида: 
039.081 O я 1:5 НК 5") (58010: 0° A 
Поскольку эта информация относится только к экскаватору ЭО-5124, 
запомним ее в переменной с именем ЕО-5124. 
(SETQ Е0-5124 ГА) 
Для сохранения этих данных они должны быть записаны в файл хране- 
ния данных. Перед поиском данных этот файл должен быть загружен. 
Если в ответ на запрос функции (PBD ЕО-5124) ввести следующее зна- 
чение: 
Введите искомый параметр (или Enter) Q 
получим результат 
= 6 
Функция обновления данных выполняет те же действня, что и функция 
поиска, а также действия, связанные с вводом нового значения параметра 


и заменой старого значения на новое. 
Ниже представлена функция для обновления данных (ОВО). 
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4.3.6. Программа обновления значений 
в базе данных в диалоговом режиме 


ххаххлхлхлххххххххххххкхххххххххххххххххжххххкхххкххххххххххххЖжхХхХхХХЖхХХхХХ 


(СЕР ГА) - Функция обновления значений в базе данных 
см режиме 

LA - ассоциатизный список Nap (параметр значение) 
гоедваосительно должна быть создана БД функцией (SBD) 


~ хххххххххкххххххххххххкхххххххххххххххххххххххххххххххххххххххххххХх 
r . 


ЗЕРОМ OBD (ТА) 
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(SETQ LE (ASSOC P ГА) 
PZ (CADR LE)) 
(PRINC (STRCAT ? " = " PZ)) 
(SETO PZN (GETSTRING "\n Введите новое значение ")) 
(ТЕ (/= (ASCII PZN) 10) 
(SETQ PZN (LIST P PZN) 
ГА (SUBST PZN LE LA))))) 
} 
Допустим, что функция (SBD...) сформировала ассоциативный список 
под именем ГА вида: 
Вы Е") ("О т ("НК" в) ("ВК" 11.6") ("HV" "5.,8")) 
Поскольку эта информация относится только K экскаватору ЭО-6123, 
запомним ее в переменной с именем ЕО-6123. 
[ЗЕТО ЕО-5123 А] 
Для сохранения этих данных их можно записать в файл хранения дан- 
ных. Перед обновлением данных этот файл должен быть загружен. 
В ответ на запрос функции (ОВО ЕО-6123) необходимо ввести обнов- 
ляемый параметр и новое значение. 
Введите обновляемый параметр ВК 
Введите новое значение 11.8 
Тогда ассоциативный список под именем ЕО-6123 будет уже выглядеть 
так: 
(Pg "67.5" (O7 *2.5*) (PUR 7.2") CRE" *11.8*") ("НУ" *5.8") 
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5.1. Расчет электрических и технических 
систем 


Рассмотрим создание таких распространенных подсистем, как формиро- 
вание графического изображения и расчет электрических схем перемен- 
ного тока, расчет собственных частот механических систем. 


5.1.1. Постановка задачи 


Имеются электрические схемы переменного тока, состоящие из сопротив- 
лений, индуктивностей и конденсаторов. Требуется разработать объектно- 
ориентированную подсистему для формирования графических изображе- 
ний электрических схем любой сложности с прорисовкой как самих 
элементов. так и их параметров. 


5.1.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Элементы электрической схемы могут быть соединены последовательно 
либо параллельно. 

Для создания графического изображения схемы могут понадобиться 
горизонтальные и вертикальные проводники, соединяющие те или иные 
элементы схемы. Вертикальные проводники могут быть направлены вверх 
или вниз, горизонтальные — вправо или влево. 

Каждый базовый элемент электрической схемы можно представить 
в виде некоторой функции. Для формирования графического изображе- 
ния сопротивления необходимо создать функцию (ВР), для индуктивно- 
сти — (LP), для конденсатора — (СР), для вертикального проводника, 
направленного вверх,- (V P+), вниз — (V P-), для горизонтального провод- 
ника, направленного вправо,— (СР+), влево — (СР). 


5.1.3. Разработка последовательности действий 
и комплекса функций параметрического изображения 
всех элементов схемы 


Прежде создадим функции для формирования графических изображений 
базовых элементов схемы: 
(СЕРОМ ВР () ; функция создания изображения резистора 
(COMMEND “PLINE” ТВ "W" "0.01" "0.01" "@2,0" "60,1" "@6б,0" 
"@0,-1" "82,0" "@-2,0” "@0,-1" "@-6,0" "@0,1" "" 
"ТЕХТ" (LIST (+Х2) (+У1.5)) "0.7" "0°" "В" 
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"TEXT" (LIST (+Х3} (+Y 1.5)) "0.7" "0" NOM 
"TEXT" (LIST {+Х5) (+Y 1.5)) "0.7" "0" NUM) 
) 
(DEFUN LP (} -3 функция изображения катушки индуктивности 
(COMMAND "РИТМЕ" ТВ "М" "0.01" "0.01" "@2,0" "@1,1" "@1,-2" 
"01,2" "@1,-2" "8,2" "@1,-1" "@2,0" =" 
"TEXT" (LIST (+X 2] (+Y 1:5)) "0.7" "0 "L" 
"TEXT" (LIST (+ X3) Ш) "0.7" "0" NOM 
"TEXT" (LIST (+ X5) (+ Y 1.5)) "0.7" "0" NUM) 
) 
(DEFUN CP () ; функция создания изображения конденсатора 
(COMMAND 
"PLINE" TB "W" "0.01" "0.01" "@4,0" "@0,1" "Q0,-2°" № 
"PLINE" "@2,0" "W" "0.01" "0.01" "Q@0,2" "Q@0,-1" "@4,0" "" 
"TEXT" (LIST (+ X2) О "0.7" "0" "C" 
"TEXT" {LIST (+X 3) УТ) "0:7" "U~ NOM 
"TEXT" (LIST (+X 5) (+Y 1.5)) "0.7" "0" NUM) 
) 


В функциях используются переменные TB, МОМ и NUM, которые опре- 
деляют базовую точку элемента, номер и величину сопротивления элемен- 
та соответственно. Эти переменные должны быть определены до исполь- 
зования функций (КР), (Т.Р) и (СР), например, так: 

(SETQ ТВ (LIST 5 7) NOM "3" NUM "1000"} 

Ниже на рис. 3.1 представлены примеры создания в среде AutoCAD rpa- 

фических изображений резистора, катушки индуктивпости и конденсатора. 


ко м АМ 


Рис. 5.1. Примеры графического изображения элементов электрической схемы 


Создадим функции формирования графического изображения провод- 
НИКОВ. 


(DEFUN VP+ () ; функция изображения вертикального проводника вверх 
(COMMAND "PLINE" ТВ "М" "0.01" "0.01" "@0,10" "")) 

(DEFUN VP- () ; функция изображения вертикального проводника вниз 
(COMMAND "PLINE" ТВ "И" "0.01" "0.01" "@0,-10" ""}) 

(DEFUN СР+ () _ р функция изображения горизонтального проводника вправо 
(COMMAND "PLINE" ТВ "И" "0.01" "0.01" "@10,0" =") } 

(DEFUN GP- ()} ; функция изображения горизонтального проводника влево 


(COMMAND "PLINE" ТВ "М" "0.01" "0.01" "@-10,0" "")}) 


7 — 1278 


194 Создание объектно-ориентированных систем 


Ввести в диалоговом режиме необходимую исходную информацию 
можно следующим образом: | 


(SET N (GETINT "\п Введите число элементов B цепи N = ") 
I 0) 
(REPEAT N ; цикл ввода элементов и их данных 
(SETQ I (+ I 1)) 
(SETQ IMY (GETSTRING (STRCAT "\п Введите имя " 
(ТТОА I) "-го элемента цепи <R,L,C,VP+,VP-,GP+,GP-> - "))) 
( 


COND ((ЕС IMY "В") (SETQ RAZM " B омах " RAZ " om")}) 
( (EQ IMY "L") (SETQ RAZM " в генри " RAZ " генри")) 
( (EQ IMY "C") (SETQ RAZM " в мкФ" RAZ " MKỌ")) 
) 
(COND ((OR (EQ IMY "В") (ЕО ТМУ "L") (ЕО IMY "С")) 
R a AA (GETINT "\п Введите номер элемента NOM = "))})) 
(SETQ SOPR (STRCAT (GETSTRING (STRCAT "\п Введите " 
"ссгоотивление элемента цепи " IMY NOM RAZM)) RAZ)))) 
(SETQ TB (СЕТРОТМТ "\n Введите точку вставки элемента - ")) 
(SETO X (NTH U TB) 


Y (NTH 1 ТВ)) 
{COND 
( (EQ ТМУ "R") (RP)) ; создание изображения резистора 
((20 ТМУ "L"} (LP)) ; создание изображения индуктивности 
({20 LNY * 2] {CP}} ; создание изображения конденсатора 
( (EQ IMZ "УР+") (VP+)) ; создание изображения провода вверх 
( (EQ ТМУ "СР+") (СР+)} ; создание изображения провода вправо 
( (EQ ТМУ "УР-") (УР-)) ; создание изображения провода вниз 
( (EQ ТМУ "СР-") (СР-)) ; создание изображения провода влево 


) 

В окончательном варианте комплекс функций для создания графичес- 
кого изображения электрической схемы переменного тока, состоящей из 
сопротивлений, катушек индуктивностей и конденсаторов, будет выгля- 
деть так, как показано ниже. | 


5.1.4. Комплекс функций параметрического 
изображения всех элементов электрической схемы 


ххх Хх КХХХХхХХхХ 
Комплекс функций для создания в диалоговом режиме графического .. 
изображения электрической схемы, состоящей из сопротивлений, | 


конденсаторов и катушек индуктивностей 
ХХХ АХХАКАХхХХ 


“me No `. ца -е 
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(SETVAR "BLIPMODE” 0) ; отключение маркеров. 
(SETVAR "СМОЕСНО" 0) ; отключение эха команд 
(DEFUN ВР () . ; функция изображения резистора 
(COMMAND "PLINE" ТВ "W" "0.01" "0.01" "@2,0" "@0,1" "@6,0" 
"@0,-1” "@2,0" "@-2,0" "@0,-1" "@-6,0" "@0,1" "" 
"ТЕХТ" (LIST (+Х2) (+У1.5)) "0.7" "0" "В" 
"TEXT" (LIST (+Х3) (+У1.5)) "0.7" "0" NOM 
"TEXT" (LIST (ХЭ (+Y 1.5)) "0.7" "0" SOPR) 
) 
(DEFUN LP () =; функция изображения катушки индуктивности 
(COMMAND "PLINE" ТВ "И" "0.01" "0.01" "@2,0” "@1,1" "@1,-2" 
"@1,2"” "@1,-2" "@1,2" "@1;-1* "@2,0" "* 
“TEXT” {LIST (+X 2) (+Y 1:5)) "0.7" "0" "L" 
"TEXT" (LIST (+ X3) (+Y 1.5)) "0.7" "0" NOM 
"TEXT" (LIST (+X 5) (У) "0.7" "0" SOPR) 
) 
(DEFUN CP () ; функция изображения конденсатора 
(COMMAND 
"PLINE" TB "И" "0.01" "0.01" "@4,0" "@0,1" "@0,-2" "" 
"PLINE” u2 0" "И" "0.01" “0.01” "0,2" "HU -1" "a4, 0" "P 
"TEXT" {LIST {tX 2) {+Y 1.5)] "U7" ТС" 
"TEXT" (LIST (+X3) (+Y 1.5)) "0.7" "0" NOM 
"TEXT" (LIST (+X 5) (+Y 1.5)) "0.7" "0" БОРЕ} 
} 
; функция изображения вертикального проводника, направленного вверх 
(DEFUN VP+ () (COMMAND "PLINE" ТВ "И" "0.01" "0.01" "@0,10" =") 
} 
; функция изображения вертикального проводника, направленного вчиз 
(DEFUN VP- () 
(COMMAND "PLINE" TB "М" "0.01" "0.01" "@0,-10" "") 
} 
; функция изображения горизонтального проводника, направленного впоаво 
- (DEFUN GP+ () 
(COMMAND "PLINE" ТВ "W" "0.01" "0.01" "@10,0" "") 
} 
; функция изображения горизонтального проводника, направленного влево 
(DEFUN GP- () . | 
(COMMAND "PLINE" ТВ "W" "0.01" "0.01" "@-10,0" "") 


m a 


} | 
(COMMAND "LIMITS" "0,0" " 40, 30") 
(COMMAND "ZOOM" "А") | 
(SETO М (GETINT "\п Введите число элементов в yenn N =") 
I 0) 


o 
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(REPEAT М ; цикл ввода элементов цепи и их данных 
(SETQ I (+ I 1)) 
(SETQ IMY (GETSTRING (STRCAT "\n Введите имя“ 
(ТТОА I) "-го элемента цепи <R,L,C,VP+,VP-,GP+,GP-> - ")}) 
(COND ((ЕС ТМУ "R") (SETQ RAZM " в омах " RAZ " ом")) 
( (EQ ТМУ "L") (SETQ RAZM " в генри " RAZ " генри")) 
( (EQ ТМУ "C") (SETQ RAZM " в мкФ" RAZ " мкФ")) 


Aei OM (ITOA (GETINT "\п Введите номер элемента NOM = "))) 
ZTO SOPR (STRCAT (GETSTRING (STRCAT "\п Введите " 


согостивление элемента цепи " IMY NOM RAZM )) RAZ)))) 

(SETO ТВ (СЕТРОТМТ "\n Введите точку вставки элемента - ")) 

(ЗЕТО Хх (МО ТВ) 

У (NTH 1 TB)) 

(COND 
( (EQ ТМУ "R") (RP)) ; создание изображения резистора 
( (EQ IMY "L") (LP)) ; создание изображения индуктивности 
( (EQ ТМУ "С"} (СР)} ; создание изображения конденсатора 
( (ЕО IMZ "УР-") (УР+})} ; создание изображения провода вверх 
((20 ТМУ “С2-") (СР+)) -; создание изображения провода вправо 
( (EQ ТМУ "УР-") (\У2Р-)) ; создание изображения провода вниз 
( (ЕО ТМУ "С2-"} (GP-})) ; создание изображения провода влево 


Для формирования в диалоговом режиме графического изображения 
электрической схемы переменного тока, состоящей из сопротивлений, 
конденсаторов, катушек индуктивностей и проводников, достаточно обра- 
титься к комплексу функций, созданных выше. Данный комплекс функ- 
ций целесообразно сохранить в файле, например, ELKTRISD.LSPE Допус- 
тим, этот файл находится в папке (каталоге) ALISP на диске С:. После 
загрузки файла в командной строке AutoCAD 


Cormand: (LOAD "C:/ŁLISP/ELKTRISD") 


будет запрашиваться необходимая информация для создания графическо- 
го изображения схемы. В качестве примера возьмем схему, изображенную 
выше. На запросы командной строки AutoCAD введем данные, представ- 
ленные ниже в правой части запросов. Все запросы и данные по ним будут 
отражаться в текстовом окне AutoCAD (Shift+F2). 


Взедите число элементов в цепи М = 12 

Введите имя 1-го элемента цепи <В,Ё,С,УР+,УР-,СР+, GP- > В 
Введите номер элемента NOM = 1 

Взедите сопротивление элемента цепи RÌ в омах 1 

Введите точку вставки элемента - 0,12 
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Введите 
Введите 
Введите 
Введите 
Введите 
Ввеците 
Введите 
Введите 
Введите 
Введите 
Введите 


имя 2-го элемента цепи <В,Г,С,УР+,УР-,СР+,СР-> VP+ 
точку вставки элемента - 10,12 

имя 3-го элемента цепи <В,Г,С,УР+,УР-,СР+,СР-> VP- 
точку вставки элемента - 10,12 

имя 4-го элемента цепи <В,Г,С,УР+,УР-,СР+,СР-> В 
номер элемента МОМ = 2 

сопротивление элемента цепи R2 в омах 100 

точку вставки элемента - 10,22 

имя 5-го элемента цепи <В,Ь,С,УР+,УР-,СР+,СР-> L 
номер элемента NOM = 1 

сопротивление элемента цепи Ll в генри 0.2 


Введите точку вставки элемечта - 20,22 
Введите имя 6-го элемента цепи <В,1,С,УР+,УР-,СР+,СР-> C 
Введите номер элемента МОМ = 1 


Введите сопротивление элемента цепи Cl в мкФ 1000 
Введите точку вставки элемента - 10,12 
Введите имя 7-го элемента цепи <В,ЁЬ,С,\УР+,УР-,СР+,СР-> R 


Введите 
Введите 
Введите 
Введите 
Введите 
Введите 
Введите 
Введите 
Введите 
Введите 


номер элемента NOM = 3 

сопротивление элемента цепи R3 в омах 1000 

точку вставки элемента - 10,2 

имя 8-го элемента цепи <В,Г,С,УР+,УР-,СР+,СР-> СР+ 

точку вставки элемента - 20,12 

имя 9-го элемента цепи <В,Ь,С,\УР+,УР-,СР+,СР-> VP- 

точку вставки элемента - 30,22 

имя 10-го элемента цепи <В,Г,,С,УР+,УР-,СР+,СР-> VP+ 
точку вставки элемента - 30,2 

имя 11-го элемента цепи <К,Ь,С,УР+,УР-,СР+,СР-> СР+ 


Введите точку вставки элемента - 20,2 
Введите имя 12-го элемента цепи <К,Г,С,УР+,УР-,СР+,СР-> СР+ 
Введите точку вставки элемента - 30,12 
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_ Фрагмент введенных в диалоговом режиме данных для создания графи- 


ческого изображения электрической схемы представлен в текстовом окне 
AutoCAD (Shift+F2) (рис. 5.2). 

По мере ввода информации в строке запросов в поле чертежа будет по- 
являться графическое изображение электрической схемы, которая в ко- 
нечном виде будет выглядеть так, как показано на рис. 5.3. 

Далее создадим функцию, которая вводит исходную информацию через 
аргументы (параметры функции). Для этого сформируем список данных 
по всем элементам схемы, включая проводники. Допустим, наша схема со- 
стоит из 12 элементов. Данные по каждому элементу схемы представляют- 
ся в виде списка в списке Г.Е. Первый элемент списка данных включает 
имя элемента, второй — номер элемента, третий — значение сопротивления, 
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E AutoCADo Текстовое Окно Я X 
Edit 


Conmtand: (load "C:/ALISP/ELKTRISD1") 

Бзедите число элементов в цепи М = 12 

введите имя 1-го элемента цепи <К,Ь,С,УР+,УР-,СР+,СР-> - R 
Введите номер элемента NOM = 1 E| 
Взедите сопротивление элемента цепи R1 в омах 1 


Звеците точку вставки элемента - 0,12 


Введите имя 2-го элемента цепи <В,Ъ,С,УР+,УР-,СР+,СР-> - VPH 
v 


МЕТ 


сслиапа: 


о 


Рис. 5.2. Фрагмент данных для создания изображения 
электрической цепи в диалоговом режиме 


| R3 1000 


Рис. 5.3. Параметрическое изображение электрической схемы 
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четвертый - точку начала создания графического изображения элемента, 
пятый — точку окончания создания графического изображения элемента. 


; Создание. списка элементов цепи | 
; ДЛЯ графического изображения схемы 
(ЗЕТО LE (LIST- 
'("В" 11 (0 10) (10 10)) 
'("VP+" 10 (10 10) (10 20)) 
' ("УР-" 10 (10 10) (10 0)) 
'("В" 2 100 (10 20) (20 20)) 
'("L" 1 0.2 (20 20) (30 20)) 
'("С" 1 1000 (10 10) (20 10)) 
'("R" 3 1000 (100) (20 0)) 
' ("GP+"* 1 0 (20 10) (30 10)) 
'("VP-" 2 1 (30 20) (30 10)) 
'("УР+" 2 0 (300) (30 10)) 
'("СР+" 20 (20 0) (30 0)) 
'("СР+" 30 (30 10) (40 10))) 
) 
Для формирования графического изображения электрической схемы 
переменного тока, состоящей из сопротивлений, конденсаторов, катушек 
индуктивностей и проводников, создадим функцию ($НЕМАКЦ[$...): 


(DEFUN SHEMARIS (LL) 
(FOREACH EL LL 


(SETO TB (NTH 3 EL) ; точка вставки элемента 
X (NTH 0 TB) 
Y (NTH 1 TB) 
IMY (NTH 0 EL) ; имя элемента 
МОМ (NTH 1 EL) ; номер элемента 
NUM (NTH 2 EL) ; сопротивление элемента 
) 
(COND 
( (EQ IMY "R") (RP)) ; изображение резистора 
( (EQ ТМУ "Г") (LP}) ; изображение катушки индуктивности 
( (EQ IMY "С") (СР}) ; изображение конденсатора 
( (ЕО ТМУ "УР-") (УР-)} ‚ изобр. вертикальногс провода вниз 
( (EQ ТМУ "УР+") (УР+)) ; изобр. вертикального провода вверх 
( (EQ ТМУ "СР+") (СР+)) ; изобр. горизонтального провода вправо 
( (ЕО ТМУ "СР-") (СР-}} ; изобр. горизонтального провода влево 
(Т (RPI) 


В окончательном виде комплекс функций для создания параметричес- 
кого изображения электрической схемы, состоящей из сопротивлений 
конденсаторов и катушек индуктивностей, представлен ниже. 


? 
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3.1.5. Программа параметрического изо бражения 
электрической схемы 


ККИ ККАКККАХАКЛКАКККККАХИ ККИ ККККИККАККАКККККККК 


Комплекс функций параметрического изображения электрической 
схемы, состоящей из сопротивлений, конденсаторов и катушек 
индуктивностей 


ххх кккхххХххХхххХхАххХхХхХхХх 


ря "ВЪТРМОШЕ" 0) 


; отключение маркеров 

AR “СМОЕСНО" 0) ; отключение эха команд 

вы IN 85 () ; функция изображения резистора 
(COMMAND "PLINE" ТВ "W" "0.01" "0.01" "@2,0" "@0,1" "@6,0" 


ет“ "22,0" "@-2,0" ЕО," 
"TEAT" (LIST {+ X2) (+ Y1:-5)) 
"TEAL (ТОТ [+5] (УТ. 5) 


"TEAXT™ {LIST {P X3] 1+ 1:5) 


"@-6,0" "60,1" =" 
ыы 
"0.7" "0" NOM 
"0.7" "0" NUM) 


; Функция изображения катушки индуктивности 
ый E" TB "W" "0.01" "0.01" "@2,0" "@1,1" "@1,-2" 


a 

fi 

|= 

` = 

M po 
a 


r a r a E 
"ТЕХ. 115 (2х2) e CS к ее 
"TEXT" (LIST (+ X3) (+У1.5)) "0-7" "0" NOM 
"IERD DT 61.5). O N) 


) 

(DEFUN CP () 
(COMMAND 

"DLINE" TB "W" "0.01" "0.01" "@4,0" "Q0,1" "@0,-2" "" 
"DLINE" "@2,0" "W" "0.01" "0.01" "@0,2" "@0,-1" "@4,0" =" 
"TEXT" (LIST (+ X2) (+Y1.5)) "0.7" "0" "С" | 
"TEXT" (LIST (+ X3) (+\1.5})) "0.7" "0" NOM 
"TEXT (LIST (+45) (+YyY1.:5)) "0:7" "0" NUM) 


; Функция изображения конденсатора 


) 
(DEFUN VP+ () ; Функция изображения вертикального 
; проводника вверх 


(COMMAND "PLINE" ТВ "М" "0.01" "0.01" "@0,10" "") 
) 
(DEFUN VP- () ; функция изображения вертикального 
; проводника вниз 


(COMMAND "PLINE" ТВ "М" "0.01" "0.01" "@0,-10" ==) 


) 
; функция изображения горизонтального проводника вправо 
(DEFUN СР+ () (COMMAND "PLINE" ТВ "W" "0.01" "0.01" "@10,0" ""} 
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. функция изображения горизонтального проводника влево 
(DEFUN GP- () | 
(COMMAND "PLINE" ТВ "И" "0.01" "0.01" "@-10,0" "")} 
) 
(COMMAND "LIMITS" "0,0" "40, 30") 
(COMMAND "ZOOM" "А")} 
(DEFUN SHEMARIS {LL) 
(FOREACH EL LL 


(ЗЕТО TB (NTH 3 EL) точка вставки элемента 


=a 


X (NTH 0 TB) 
Y (NTH 1 TB) 
ТМУ (NTH 0 EL) ; имя элемента 
NOM (NTH 1 EL) ; номер элемента 
МОМ (NTH 2 EL)) ; сопротивление элемента 
(COND ( (EQ ТМУ "В") (RP)) ; изображение резистора 
( (EQ ТМУ "L") (LP)) ; изображение катушки индуктивности 
( (EQ ТМУ "С") (СР)} ; изображение конденсатора 
((ЕО ТМУ "УР-") (VP-)) ; изобр. вертикального провода вниз 
( (EQ ТМУ "УР+") (УР+)) ; изобр. вертикального провода вверх 


изобр. горизонтального провода вправо 
изобр. горизонтального провода влево 


w g 


( (EQ IMY "GP+") (GP+)) 
( (EQ IMY "GP-") (СР-)) 
(T (RP)))) 


5 


) 

Этот комплекс функций целесообразно сохранить в файле, например, 
ELKTRISL.LSP. Допустим, этот файл находится в папке (каталоге) ALISP 
на диске С:. 

Для создания в пакетном режиме графического изображения электри- 
ческой схемы переменного тока, состоящей из сопротивлений, конденса- 
торов и катушек индуктивностей, необходимо загрузить указанный файл 
в командной строке AutoCAD: 


Command: (LOAD "C:/ALISP/ELKTRISL") 


Затем предстоит сформировать список LE. Например, для электри- 
ческой схемы (см. рис. 5.3) список LE можно записать так: 


(SETQ LE (LIST ; список элементов цепи для изображения схемы 

'("В" 11. (2 12) (12 12)) 

'("УР+" 10 (12 12) (12 22)) 

'("УР-" 10 (12 12) (12 2)) 

'("В" 2 100 (12 22) (22 22)) 

'("L" 1 0.2 [22 22) (32 02] 

'("С" 1 1000 (12 12) {22 12)) 

'("R" 3 1000 (12 2) (22 2}) 
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к> 
2 ЕЁ 


12} (32 12}) 
22] (32 12} 
2} (32 12) F. 
2) (32 2}) 

12) (42 12)) 


E = P T 
t2 


GI №2 4% ©) 


| 
G3 b3 ВБ 6 + 
(2 b2 


G O G г. © 


aE, 


и вызвать функцию: 


(ЗЕЕМАВТС {LIST 
TETAS L Ул, Ш 
а Пе МЕ Ь 
О 
аа 100 (12 22) {22 22)) 
LA LOA {22 22] (32 221) 
A Ca A UOU ATA Уи 
ARRA F AUU (1a 2y {42 2] 
"GIST L 0 {24 12] 132 > 
("V= A a {34 a2} {32 | 
{Pem 2 0 (32-2) {132 127) 
proper a W ВЕ 
” ("G2+" 30 (32 12) (42 12) } l 


В результате получим параметрическое изображение. электрической 
схемы, представленной на рис. 5.3. 


5.1.6. Основные этапы автоматизации расчета 
электрических схем переменного тока 


Рассмотрим теперь основные этапы автоматизации расчета электрических 
схем переменного тока. 


Постановка задачи 


Требуется разработать систему для автоматизации расчета электрических 
схем переменного тока, состоящих из сопротивлений, индуктивностей 
и конденсаторов. Система должна быть объектно-ориентированной, пред- 
назначенной для описания и расчета электрических схем любой сложнос- 


ти. Расчетные параметры — полное сопротивление электрической схемы 
и резонансная частота. 
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Выявление основных особенностей, взаимосвязей 
и количественных закономерностей 


Все элементы электрической схемы, как базовые, так и комбинации базо- 
вых элементов, могут быть соединены последовательно или параллельно, 
а также в разных сочетаниях. 

Каждый базовый элемент электрической схемы можно представить 
в виде функции, для наименования которой целесообразно использовать 
обозначения, применяемые наиболее часто. Так, для расчета сопротивле- 
ния резистора К создадим функцию (В ОМ), для расчета сопротивления 
катушки индуктивности L - (L НЕМ), а для конденсатора С — (С FAR). 
Аргументами функций являются: ОМ - сопротивление, измеренное 
в омах; НЕМ - индуктивность, измеренная в генри; ЕАК - емкость конден- 
сатора, измеренная в фарадах. 

Чтобы унифицировать запись полного сопротивления для базовых эле- 
ментов, используем комплексное число, которое можно представить в виде 
списка, состоящего из вещественной части и мнимой части комплексного 
числа. 

Полное сопротивление для резистора равно вещественной части, мни- 
мая часть равна 0. 

Полное сопротивление для катушки определяется только мнимой час- 
тью и равно W * НЕМ. 

Полное сопротивление для конденсатора также определяется только 
мнимой частью и соответственно равно —1 / (W * FAR). 

Последовательное соединение двух элементов E, и E, будем описывать 
функцией (POSL E1 E2). 

Полное сопротивление последовательного соединения двух элементов 
определяется известной формулой сложения двух комплексных чисел: 

Z= Z+ Z, = (A+ В.Т) + (А+ В.Т) = (А+ A) + (B+ В.) 

Параллельное соединение двух элементов Е, и E, будем описывать фун- 
кцией (РАВ Eí E2). 

Полное сопротивление параллельного соедипения двух элементов 
определяется следующей формулой: 

2=1/(1/2+1/2,) 

Величину 1 / Z = 1 / СА, + ВП) можно представить как 

1/ (А, + В.Л) = (А, - B,D) / (А, + В!) А, / (А! + В!) - В.Г / (А? + В?) 

Аналогичное выражение можно записать и для 1 / Z. 

Для поиска резонансной частоты необходимо, изменяя частоту перемен- 
ного тока, найти такую частоту, при которой полное сопротивление элек- 
трической схемы будет равно нулю. 
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Разработка последовательности действий и комплекса 
функций для расчета элементов электрической схемы 


Создадим функции, определяющие полное сопротивление базовых эле- 
ментов схемы: 


DEFUN R (OM) ; определяет полное сопротивление резистора 
(LIST OM 0) 
) 
(DEFUN L (REN) ; опоеделяет полное сопротивление индуктивности 
(LIST О (*м НЕМ) ) 
} 
(DEFUN C (FAR) ; определяет полное сопротивление конденсатора 
(LIST 0 (/ -1 (* ИМ РАБ) )) 
) 
Далее создадим функцию (POSL...), которая определяет полное CO- 
противление схемы, состоящей из двух последовательно соединенных 
элементов: 


(DEFUN POSL 471 22) ; определяет сопротивление цепи из двух 
| ; последовательно соединенных элементов 
(SETO А (+ (NTE О 71) (NTH 0 22)) 
B (+ (NTH 1 Z1) (NTH 1 22)}))) 
(GISI A BJ) 


Создадим теперь функцию (POSLN...), которая определяет полное CO- 
противление схемы, состоящей из нескольких последовательно соединен- 
ных элементов, представленных в виде списка. 


(DEFUN POSLN (LN) ; определяет сопротивление цепи из 
; N последовательно соединенных элементов 
(COND (( NULL LN) NIL) 
( (= (LENGTH LN) 1) (NTH 0 LN)) 
( (= (LENGTH LN) 2) (POSL (EVAL (NTH 0 LN)) 
(EJŁL (NTH 1 LN} ))) 
(T (POSL (EVAL (NTH 0 LN)) {РОЗЬМ (CDR 1М))}) 


) 


Перед созданием функции, определяющей полное сопротивление CXE- 
МЫ, состоящей из двух параллельно соединенных элементов, создадим 
функцию для вычисления обратного значения комплексного числа. При 
этом используем ранее полученное выражение: 

1/2=1/(А+В1 =А / (А? +В?) - ВТ / (А? + B’). 

(ПЕРОМ КО (7) ; определяет обратное значение 

(SETQ А (NTH 0 7) ; комплексного числа 1 / Z 
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В (NTH 1 2) 
SUM (+ (* AA) (*ВВ))) 
(LIST (ГА SUM) (*В (/ -1 $0М) ))} 
) 
Для определения полного сопротивления схемы, состоящей из двух Na- 
раллельно соединенных элементов, применим известную формулу: 
7=1/(1/2,+1/2,) 
Соответствующая функция будет выглядеть следующим образом: 
(DEFUN PAR (71 Z2) ; определяет сопротивление цепи из двух 
‚ параллельно соединенных элементов 
(КО (POSL (КО 21) (KO 722))) 
ВЕ 
Далее создадим функцию (РАКМ...), которая определяет полное сопро- 
тивление схемы, состоящей из нескольких параллельно соединенных эле- 
ментов, представленных в виде списка: 
(DEFUN PARN (LN) ; определяет сопротивление цепи из 
; N параллельно соединенных элементов 
(COND (( NULL LN) NIL) 
((= (LENGTH LN) 1) (NTH 0 LN}) 
((= (LENGTH LN) 2) (PAR (EVAL (NTH 0 LN) ) 
(EVAL (NTH 1 LN)))) 
(T (PAR (EVAL (NTH 0 LN)) (PARN (CDR LN}))}) 


) 

Теперь создадим функцию (REZONANS...) для расчета резонансной 
частоты, которая по начальной частоте W и приращению частоты DW 
определяет резонанспую частоту системы: 

(DEFUN REZONANS (PRIZN W DW) ; определяет резонансную частоту 

(SETQ 5 (EVAL СЕР)) 

(COND ((< (NTH 1 S) 0) (SETQ ZN '<)}) 
( (> (NTH 1 S) 0) (SETQ ZN '>)) 
((= (NTH 1 S) 0) (SETQ ZN '=)} 

) 


(WHILE ( (EVAL ZN) (NTH 1 S) 0) ; цикл поиска оптимальной частоты 
(SETQ W (+ W DW)) ; изменяет частоту в цепи 
(SETQ S (EVAL СЕР} )) ; расчет электрической цепи 
(PRINC "\п\п Результаты расчета "} 
(PRINC "\п Собственная частота схемы, 1/С \О = ") (PRINC W) 
(ТЕ {= PRIZN 1) (РВОСМ (ТЕХТЗСВ) 
(PRINC "\п Полное сопротивление схемы $ = ") (PRINC $))) 


(PRINC) ) 
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Комплекс функций для расчета элементов 
электрической схемы 


a 
a 
8 
- 
ё 
> 
8 
` 
8 
Г 
г? 
- 
# 


- 
f 


aa 


kkt tkžitikkkrrirkkirrrrrikikikkikikkkýkkkkkkžšžkkkkkkkkkk 


Комплекс Функций объектно-ориентированной системы для расчета 
резонансной частоты электрических схем геременного тока, 


результаты На: полное сопротивление и резонансная частота для 
злектоических схем переменного тока 
ххх АККАХКХХХХАХКХАХК КК ХХХАХЖХХХХХ 
зедставление электрической цепи в виде вложенных функций, 

(SETQ СЕР ‘(РОЗЬ (R 1) (PARN '((РОЗЬ (В 100) (L 0.2)) 
(UE 10E ai у и 
(POSL ЕТ E2) - оункция оасчета сопротивления двух последовательно 
ссегиневных элементов ЕТ и E2 
(2А3 El E2) - сункция расчета сопротивления двух параллельно 
ссализиных элементов El n E2 
I ние ме значения комплексного числа 
(POSLN LN) - ta ция расчета сопротивления последовательно 


г 


соединенных злементов, описываемых в списке LN 

(РАМ LN) - сункция оасчета сопротивления параллельно 
соединённых элементов, описываемых в списке LN 

Сгисск может выглядет '( (В 100) (L 0.2) (С 1.0Е-6)) 
(3 СМ) - су=ЕЦИЯ ОПОелеления сопротивления резистора 

(L ЗЕМ) - сункция опоеделения сопротивления катушки 

(С =28) - оузкыия определения сопротивления конденсатора, 


где: ОМ - полное сопоотивление, ом 

НЕМ - голное согротивление индуктивности, генри 

TAR - пОЛНСе сопротивление емкости, Фарады 

(REZONANS PRIZN W DW) - Функция для расчета резонансной частоты 
РРТУМ - признак: 0 - расчет механической системы, 1 - электрической 


= + 
ia’ 


я - =;Ачальная частота расчета, 1/С 
пи - приращение частоты, 1/С 
Результаты расчета: 


S -"ослысе сопротивление электрической схемы в виде списка, 
вилючаютего } o и мнимую части, например, 
5 = (100-29 19.0338} 


0 
WO - ме n зная частота схемы (системы) 
ХКККККККККККККХКККККККХКККККККККАККХКККККККККККККККККККЖАККАККАКИККК 


(DEFUN 2 6 ; определяет сопротивление резистора 


) 


(DEFUN L (HEN) ; определяет сопротивление индуктивности 


(LIST 9 (* и НЕМ)) 
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(DEFUN С (FAR) | ; определяет сопротивление конденсатора. 
(LIST 0 (/ -1 (* W РАК} )) 
) 
(DEFUN POSL (Z1 Z2) ; определяет сопротивление цепи из двух 
; последовательно соединенных элементов 
(SETQ А (+ (NTH 021) (МТНО 72)) 
В (+ (NTH 1 Z1) (NTH 1 72})) 
(LIST A B) 
) 
(DEFUN POSLN (LN) ; определяет сопротивление цепи из N 
; последовательно соединенных элементов 
(COND (( NULL LN) NIL) 
( (= (LENGTH LN) 1) (NTH 0 LN)) 
((= (LENGTH LN) 2) (POSL (EVAL (NTH 0 LN}) 
(EVAL (NTH 1 LN)))) 
(T (POSL (EVAL (NTH 0 LN)) (POSLN (CDR LN))})) 


) 


(DEFUN KO (2) ; определяет обратное значение 
(SETQ А (NTH 0 2) ; комплексного числа Z (1/7) 
В (NTH 1 Z) 


SUM (+ (* AA) (*ВВ))) 
(LIST (/ A SUM) {* B (/ -1 SUM))) 
) 
(DEFUN PAR (Z1 22) ; определяет сопротивление цепи из двух 
; параллельно соединенных элементов 
(КО (POSL (КО 21) (КО 22))) 
) 
(DEFUN PARN (LN) ; определяет сопротивление цепи из 
; № параллельно соединенных элементов 
(COND (( NULL LN) NIL) 
((= (LENGTH LN) 1) (NTH 0 LN)) 
((= (LENGTH LN) 2) (PAR (EVAL (NTH 0 LN)) 
(EVAL (NTH 1 LN)))) 
(T (PAR (EVAL (NTH 0 LN)) (PARN (CDR LN})})) 
) _ 
(DEFUN REZONANS (PRIZN W DW) ; определяет резонансную частоту 
(SETQ S (EVAL СЕР) ) 
(COND ((< (NTH 1 S) 0} (SETQ ZN '<)) 
((> (NTH 1 S) 0) (SETQ ZN *>}) 
| ((= (NTH 1 S) 0) (SETQ ZN *'=))) 
(WHILE ( (EVAL ZN) (NTH 1 S) 0) ; цикл поиска оптимальной частоты 
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(SETQ W (+ WDW)) ; изменение частоты B цепи 
(SETQ $ (EVAL СЕР))) ; расчет электрической цепи 
PRINC "\п\п Результаты расчета ") 
"\п Собстзенная частота схемы, 1/С МО =") (PRINC W) 
FRIZN 1) (РКОСМ (TEXTSCR) 
INC "\n Полное сопротивление схемы S = ") (PRINC 5))}) 
ans 
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; функция расчета резонансной частоты 


Для расчета полного сопротивления электрической схемы и резонанс- 
ной частоты необходимо создать файл, в котором находится вся исходная 
информация для расчета и описания электрической схемы. Назовем этот 
файл ЕСЕКТКК. Е ЗР. После загрузки файла в окно текстового редактора 
Visual LISP произведем запуск программы, щелкнув по кнопке Load active 
edit window (Загрузить текст активного окна редактирования). В окне 
консоли появятся результаты компиляции функций AutoLISP. Если npo- 
грамма набрана без ошибок, на экране появится сообщение о загрузке Bhl- 
ражений (форм). После подсказки консоли наберем схему электрической 
цепи и вызовем для выполнения функцию (REZONANS...) (рис. 5.4). 

После нажатия клавиши Enter (Ввод) начнется вычисление функций, 
и через некоторое время в окне консоли появятся результаты расчета 
(рис. 5.5). 

Результаты расчета будут представлены также и в текстовом окне редак- 
тора AutoCAD. 


в» Visual USP Console 
- 9 forms loaded from #<editor ”“C:/ALISP/ELEKTRR.LSP™> 
_$ (SETQ СЕР ‘(РОЗ (В 1) (PARN '((POSL (В 100) (L O. 2) )... 
(С 1.0Е-6) (В 10E6))))) 
(REZONANS 1 2000 1.0) 


Рис. 5.4. Окно консоли с сообщением о результатах загрузки 
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© Visual LISP Console ix 


‚; 9 forms loaded from #<editor “C:/ALISP/ELEKTRR.LSP"> = 
$$ (SETQ СЕР '(POSL (R 1) (PARN '((POSL (R 100) (L 0.2)) = 
(C 1.0Е-6) (R 19E6)})))) С 


, (REZONANS 1 2000 1.0) 
, (POSL (R 1) (PARN (QUOTE ((POSL (R 100) (L 0.2)) (C 1.0e-006) (R 1. 0e+007) =. 


Резупьтаты расчета 


Попное сопротивпение схены $ = (2001.55 -4ч.18592) 
а частота схемы, 1/С WO = 2180.0 f 


Рис. 5.5. Окно консоли с результатами расчета. 


5.1.7. Основные этапы создания 
объектно-ориентированной подсистемы для расчета 
собственной частоты механической системы 


Рассмотрим теперь основные этапы создания объектно-ориентированной 
подсистемы для расчета собственной частоты механической системы. 

Ограничимся расчетом механических систем с конечным числом свобо- 
ды, линейных, автономных, стационарных, консервативных и диссипатив- 
ных, а также систем со свободными колебаниями. 


Постановка задачи 


Требуется создать объектно-ориентированную систему для описания 
и расчета механических систем любой сложности, состоящих из масс, уп- 
ругих элементов H демпферов. Расчетиым параметром должна быть соб- 
ственная частота системы. 


Выявление основных особенностей, взаимосвязей 
и количественных закономерностей 


Все элементы механической системы, как базовые, так и комбинации A- 
зовых элементов, могут быть соединены последовательно, параллельно 
либо в разных комбинациях. 
Для решения задачи используем аналогии, при ко- 
торых физические процессы в оригинале и модели 
протекают по законам математического изоморфизма, 
то есть подчиняются одинаковым математическим за- 
конам, несмотря на то, что физическая природа про- 
цессов может быть различной. В качестве модели ис- 
пользуем электрическую цепь переменного тока, Рис. 5.6. Механическая 
которую мы уже умеем рассчитывать. ереиО 
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Примером послужит одна из самых распространенных механических 
систем — кабина лифта, подвешенная на стальных тросах (рис. 5.6). 

Кабина лифта массой М = 450 кг подвешена на канате. Длина каната L = 
16 м. Площадь поперечного сечения каната $ = 16 см”. Модуль упругости 
материала каната E = 2*108 кг/см-. 

Данная система может совершать колебания в вертикальной плоскости 
относительно центра статического равновесия, вес троса не учитываем. 

Уравнение движения данной системы определяется уравнением д’Алам- 
бера: 


Е. +F =Оили М m +Kx=0 

rae F. F — сила инерции от массы и сила упругости каната соответ- 
ственно; 

X — перемещение от центра статического равновесия; 

К - коэффициент жесткости упругого элемента. 

Моделью такой системы может служить электрическая схема, которая 
представляет собой электрическую цепь, имеющую катушку индуктивно- 
сти L и конденсатор С (рис. 5.7). 

На основании П закона Кирхгофа э.д.с. должна быть равна сумме Naze- 
ний напряжений на элементах контура. 


U, + Uc = 0 или не =0 


где U,, Сс - падение напряжения на 
катушке индуктивности и конденсаторе 
соответственно; 

I — переменный ток, протекающий 
в контуре. 

t — время протекания процесса. 

Следует учитывать, что скорость измене- 
ния заряда конденсатора представляет собой 
ток, то есть 

dQ di d'Q 


I =— или — = 


dt dt dt 
Если сравнить математические модели MC- 
ханической системы и электрической цепи, _ 
можно увидеть, что уравнения математически Рис. 5.8. Механическая система, 
изоморфны. Следовательно, электрическая  моделирующая виброплощадку 


Рис. 5.7. Электрическая цепь, 
моделирующая лифт 


Расчет электрических и технических систем °_ 211 


цепь (рис. 5.7). является моделью-аналогом механической системы 
(рис. 5.6). При этом индуктивность [. является аналогом массы М, ем- 
кость C — коэффициента упругости 1/К, электрический ток Í — аналогом 
скорости 

У=ах/ 

В качестве другого примера рассмотрим вибрационную площадку 
(рис. 5.8). Сосредоточенная масса М, включающая корпус виброплощад- 
ки и вибрируемые изделия, опирается на пружины с коэффициентом 
жесткости K. В систему включены также жидкостные амортизаторы с KO- 
эффициентом вязкого трения B.. 

Данная система может совершать колебания в вертикальной плоскости 
относительно центра статического равновесия, 

Движение данной системы определяется уравнением д’Аламбера: 

4х dx 

F +F, +Е =0 nm М, — Ea +В, т — +K x=0 

rae F, Fẹ F,- сила инерции от массы, сила вязкого трения амортизато- 
ров и сила упругости пружин соответственно; 

X — перемещение от центра статического равновесия. 

Моделью такой системы может служить электрическая схема, которая 
представляет собой электрический контур, имеющий сопротизление R, 
катушку индуктивности L, и конденсатор C, с зарядом Q, (рис. 5.9). 


/ L7 aaar —— 


R1 L1 C1 


Рис. 5.9. Электрическая цепь, моделирующая виброплощадку 


На основании П закона Кирхгофа э.д.с. должна быть равпа сумме nane- 
ний напряжений на элементах контура. 


о, = 0 
C, l 
rae U, Up Чс - падение напряжения на катушке индуктивности, CONDO- 
ome i И ee E соответственно; 
I — переменный ток, протекающий в контуре; 
t — время протекания процесса. 


U, + U, + U, = дили L, TRIA S 
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Необходимо учитывать, что скорость изменения заряда конденсатора 
представляет собой ток, т.е. 
I- dQ аг dQ, 


m 
e 


- C или LEQ pr 994, 9. o 
dt dt dt dt- dt C, 


Если сравнить математические модели механической системы H элек- 
трической цепи, можно увидеть, что уравнения математически изоморф- 
ны. Следовательно, электрическая цепь (рис. 5.9) является моделыо-ана- 
логом механической системы (рис. 5.8). При этом индуктивность L, - 
аналог массы M. сопротивление К, — коэффициента Baskoro трения B, 
емкость C, — аналог коэффициента упругости 1/К.. 

В силу изоморфности моделей механической системы и электрической 
цепи их можно исследовать на электрической модели, которую мы уже 
умеем рассчитывать. 


Разработка последовательности действий и комплекса 
функций для расчета элементов электрической схемы 


Для расчета колебательных механических систем с помощыо электричес- 
ких схем необходимо выполнить следующие основные действия: 

e определить эквивалентную электрическую цепь; 

e определить параметры эквивалентных электрических элементов; 

e сделать расчет электрической схемы; 

e произвести пересчет результатов моделирования. 

На этапе определения эквивалентной электрической цепи моделируе- 
мая механическая система представляется в виде совокупности масс, уп- 
ругих элементов и демпферов, связанных друг с другом, как в моделируе- 
мой системе (см. рис. 3.6). 

Зная, что катушка индуктивности является аналогом массы, сопротив- 
ление — аналогом демпфера, а емкость — аналогом упругого элемента, MOX- 
но составить эквивалентную электрическую цепь. Пример такой эквива- 
лентной электрической цепи представлен на рис. 5.7. 

Параметры основных элементов электрической цепи определяются сле- 
дующим образом: 

e индуктивность катушки L, в генри (Г) равна массе М в кг; 

e емкость конденсатора C, в фарадах (ФФ) равна обратной величине KO- 

эффициента жесткости 1/К в H/M; 

e сопротивление резистора R, в омах равно величине коэффициента 

вязкого трения В, в кг/с. 

Теперь определим резонансную частоту механической системы, представ- 
ленной на рис. 5.8. В ходе расчета необходимо определить эквивалентную 
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электрическую цепь (для механической системы, представленной на 
рис. 5.8, она уже определена и изображена на рис. 5.9), а также параметры 
эквивалентных электрических элементов. Параметры элементов электри- 
ческой схемы (рис. 5.9) вычисляются с учетом заранее определенных пе- 
реходных масштабов: 

индуктивность [.1 = 450 Гн; 

коэффициент жесткости для каната определяется по формуле: 

К, =Е*$/Г = 1*10' * 0,0016 / 18 = 888889,0 H/m 

где Е — модуль упругости каната, кг/м°; 

S — площадь сечения каната, M°. 

Тогда емкость C, будет равна: 

С, =1/К, =1/ 888889,0 = 1,125Е-06 Ф. 

Для расчета данной электрической схемы воспользуемся программой 
ELEKTRR.LSP, разработанной в предыдущем параграфе. 

Вначале создадим файл, в котором будет собрана вся исходная инфор- 
мация для расчета и представления электрической схемы-аналога. Назо- 
вем этот файл DIN1.LSP. Одновременно произведем загрузку объектно- 
ориентированной системы для расчета полного сопротивления и резо- 
нансной частоты электрической цепи (файл ELEKTRR.LSP). 

При использовании системы Visual LISP файл ELEKTRR.LSP может 
находиться в одном из текстовых окон интегрированной среды Visual LISP 
После успешного запуска функций из окиа текстового редактора (кнопка 
Load active edit window (Загрузить текст активного окна редактирова- 
ния) на экране появится сообщение о загрузке программы в окис консоли. 
В этом же окне необходимо ввести исходную информацию о системе. 


(SETQ M1 450.0 ; масса лифта B кг 
LK 18.0 ; длина каната вм 
SK 1.6Е-03 ; площадь сечения каната в кв.м 
ЕК 1.0Е+10 ; модуль упругости каната, кг/кв.м 
К1 (/ (* ЕК SK) ГК) ; жесткость каната, H/M 
L1 М1 ; индуктивность катушки, генри 
Ci (/ 1 K1) ; емкость конденсатора, Фарады 


) 


Механическая система - лифт в виде эквивалентной электрической 
цепи — может быть представлена так: 


(ЗЕТО СЕР ' (POSL (L L1) (С С1))) 
Затем обратимся к функции расчета резонансной частоты систем: 
(REZONANS 0 1 0.1) ; функция расчета резонансной частоты 


Результаты расчета резонансной частоты лифта представлены на рис. 5.10. 
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O Visual LISP Console i 2 


-$ 2 
':; 9 foras loaded from #<editor “C:/ALISP/ELEKTRR.LSP™> $ 
8$ (SETQ PRIZN © ; @ - расчет неханической систены Г 

MI 450.0 —:; масса пихта в кг k 
LK 18.6 ; дпина каната в нм l 
SK 1.6Е-03 ; ппощадь сечения каната в KB. M 
ЕК 1.6E+10 ; нодупь упругости каната кг/кв. н $ 
К1 (/ (* EK SK) LK) ; жесткость каната H/M | р 
LI MI ; индуктивность катушки, генри р 


С1 (/ 1 KI) : емкость конденсатора, Фарады 


) 

(SETQ СЕР ‘(РОЗЫ (L L1) (C С1))) 
(REZONANS 8 1 6.1) | | 
1.125е-9686 

(POSL (L 11) (C С1)) 


Собственная частота схены, 1/С WO =: 44.5 


$ | n 


) v| 
и = r ыы Dat r < ый 


Рис. 5.10. Результаты расчета резонансной частоты лифта 


Для расчета резонансной частоты виброплощадки необходимо создать 
файл, в котором будет находиться вся исходная информация для расчета 
и описания самой электрической схемы-аналога. Назовем этот файл 
DIN2.LSP. Одновременно следует произвести загрузку объектно-ориенти- 
рованной системы для расчета полного сопротивления и резонансной ча- 
стоты электрической цепи (файл ELEKTRR.LSP). 

При использовании системы Visual LISP файл ELEKTRR.LSP может 
находиться в одном из текстовых окон интегрированной среды Visual 
LISP. После успешного запуска функций из окна текстового редактора 
(кнопка Load active edit window (Загрузить текст активного окна penak- 
тирования)) на экране появится сообщение о загрузке программы в окне 
консоли. В этом же окне необходимо ввести исходную информацию о сис- 
теме, например, следующую: 


(SETQ 
МТ 459.0 ; масса машины в кг 
cyi 450.0 ; коэффициент вязкого трения, Н*С/м 
БЕЛ (/ E71 (* 2 M1)}) ; коэффициент демпфирования, 1/с 
11 4 ; число пружин 
г 19 ; число витков в пружине 
ГУТ 0.017 ; диаметр витка пружины, M 
DS1 0.1 ; средний диаметр пружины, м 


; модуль сдвига материала, кг/кв.м 
(= N1 (* 0/1 0971 DV1 DV1) 651) 
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Visual LISP Console 
$ | Ввод исходной инхорнации по системе и расчет входных данных 


| (SETQ М1 450.6 ; Масса машины в кг 

| BU? 450.0  ; коэффициент вязкого трения, Нхс/н 
DE] (/ BUI (* 2 М1)) ; коэх. денпфирования, 1/с 
№ В ; чиспо пружин 
NUI 19 ; чиспо витков в пружине 
DUI 0.012 ; Диаметр витка пружины, н 
0$1 0.1 ; средний диаметр пружины, н 


GS1 0.8Е+10 ; мнодупь сдвига натериапа кг/кв.м 
K1 (/ (* N1 (> DUI 041 DUI 0917) 6$1) 
(> 8 NUI (> DS1 DS1 0$1))) ; KO3¢$.xecrTKOocTH пружин 


(1 MI ; индуктивность катушки, генри 
С1 (/ 1 K1) ; емкость конденсатора, Фхарады 
R1 BUI) ; сопротивпение резистора, OM 


(SETQ CEP '(POSLN '‘((L L1) (C C1) (R R1)))) | 
(REZONANS © 1 0.1) 

450.0 

(POSLN (QUOTE ((L L1) (C C1) (R R1)))) 


Pe3ynbTaTbi расчета 
Собственная частота схемы, 1/С WO = 4.3 si 


AEE T e E Ea A E a ЗВ 


Рис. 5.11. Результаты расчета резонансной частоты виброплощадки 


(* 8 №1 (* 051 DS1 105$1}}) ; коэффициент жесткости пружин 


L1 М1 ; индуктивность катушки, генри 
C1 (/ 1 K1) ; емкость конденсатора, фарады 
R1 ВУ] } ; сопротивление резистора, ом 
(ЗЕТО СЕР ' (РОЗЬМ '((Ё L1) (C C1} (R R1})}) ; описание системы 
(REZONANS 0 1 0.1) ; вызов функции расчета резонансной частоты 


Расчет резонансной частоты виброплощадки представлен на рис. 5.11. 


5.2. Сетевое планирование и управление 
проектами 


Рассмотрим основные этапы создания системы сетевого планирования 
и управления проектами, включая создание параметрического изображс- 
ния сетевого графика и результатов расчета в различных режимах. Нач- 
нем с создания графического изображения сетевого графика. 


5.2.1. Постановка задачи 


Разработать комплекс функций для автоматизации создания парамет- 
рического изображения сетевого графика с заданным числом событий 
и работ. На сетевом графике должна быть представлена вся исходная ин- 
формация для расчета сетевого графика. Один из таких сетевых графиков 
изображен на рис. 5.12. 
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Рис. 5.12. Сетевой график выполнения проекта 


В комплексе функций должна быть предусмотрена возможность изме- 
нения размера поля для создания графического изображения сетевого гра- 
фика, размера кружочка, изображающего событие. 

Необходимая исходная информация запрашивается в диалоговом режи- 
ме и вводится с клавиатуры компьютера. 


5.2.2. Разработка последовательности действий 
и комплекса функций параметрического изображения 
элементов сетевого графика 


Для создания параметрического изображения сетевого графика предва- 
рительно необходимо определить размер рисунка, число изображаемых 
на нем событий (кружочков), а также размер кружочка. Вся эта инфор- 
мация должна быть введена в диалоговом режиме. Высота текста может 
быть определена, например, как 0.3 от радиуса кружочка. Если информа- 
ция не вводится, используется значение по умолчанию. Обычно инфор- 
мация по умолчанию указывается в угловых скобках, например, <20> 
(SETQ BH (СЕТРОТМТ "\п Введите размер рисунка, <280,210>: " ) 
№ (GETINT "\п Введите число событий, № = "} 
В (GETREAL "\п Введите радиус крукочка, <20>: "}} 
(СЕТУАВ "CMDECEO" 0) 
(IF (EQ BH NIL) (SETQ BH (LIST 280 210}}) 
(IF (EQ P NIL) (SETQ R 20}) ; радиус кружочка по умолчанию 
(SETQ H (*ВО0.3)) ; высота цифр на сетевом графике 
Если проанализировать рис. 5.12, на котором представлен сетевой гра- 
фик, можно заметить, что кружочки разделены на сектора и в верхнем 
указан номер события. 
Создание изображения кружочков в сетевом графике целесообразно 
оформить в виде цикла: 
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(SETQ КО ; определение номера события 
LS '())} ; список координат событий 
(ВЕРЕАТ № ; цикл ввода координат событий 
(ЗЕТО К (+ 1 K}) ; определение номера вводимого события 


(ЗЕТУАК "СМОЕСНО" 1} 
(SETQ ТК (СЕТРОТМТ (5ТВСАТ "\п Введите координаты " 
(ТТОА К} "-го события в виде X,Y [можно мышкой] "))) 
(SETQ LS (CONS (LIST К ТВ) 15}) 
(SOBN K) 
) 


При этом графическое изображение кружочка с секторами можно офор- 
мить в виде функции (SOBN...): 


(DEFUN SOBN (М) ; функция изображения кружочка 
(ЗЕТУАВ "СМОЕСНО" 0} ‚<; C разделением его на сектора 
(SETQ ТМ (ТТОА М) 

ТТ (LIST (- (CAR TR) H) (+ (CAR (CDR TR)) Н})) 
(COMMAND "CIRCLE" TR R 
"LINE" TR (POLAR TR (* PI 0.25) R) 
"LINE" TR (POLAR TR (* PI 0.75) R) "" 
"LINE" TR (POLAR TR (* PI 1.25) R) "" 
"LINE" TR (POLAR TR (* PI 1.75) R) "" 
"TEXT" TT H "U" TN) ; ввод номера события 


ни 


) 


Исходя из логики выполнения проекта и наглядности его представления, 
пользователь определяет местоположения кружочков (событий) путем 
ввода соответствующих координат Х и У или с помощью мышки. Напри- 
мер, для события под номером 1 могут быть введены координаты: 30,100. 

Следующим шагом будет ввод на сетевом графике числа операций (ра- 
бот) и их изображение с указанием продолжительности выполнения каж- 
дой работы. При этом стрелки должны быть взаимосвязаны с расположе- 
нием кружочков (событий). Следовательно, для каждой работы (стрелки) 
определяют координаты события, из которого выходит работа, и коорди- 
наты события, в которое она входит, а также угол наклона стрелки и место 
изображения продолжительности выполнения работы. 

Ввод данных по работам целесообразно оформить в виде цикла. При этом 
указывается событие Í, из которого выходит работа, и событие J, в которое 
она входит, а затем указывается продолжительность этой работы TIJ: 

(SETQ NR (GETINT "\п Введите число работ в сети МВ = ") 
M 0) 
(REPEAT NR 
(ЗЕТУАВ "CMDECHO" 1} 
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(SETQ М (+М1) ; определяет номер вводимой работы 
TIJ (СЕТРОТАТ (STRCAT *\п Введите продолжительность " 
(ТТОХ М) “-ой работы в виде I,J,T : ")})} 
(ЗЕТУАК "СМОЕСНО" 0) 
(SETQ II (FIX (NTE 0 TIJ)) 
JJ (FIX (NTH 1 TIJ?) 
TRI (NTH 1 (ASSOC II LS))} 
TRJ (NTH 1 (ASSOC JJ LS)) 
U (ANGLE TRI TRJ) 
UGX (* U (/ 180 PI)) 
D (DISTANCE TRI TRJ) 
TTT (POLAR TRI U (* D0.4)) 


TRI (POLAR TRI U R) 

TRJ (POLAR TRJ U (- 0 R}) 

TRJ 1 o TE (=0 {* 0.5 R] }] 
TA (RTOS {NTH 2 TIJ) 20)}) 


(COMEND " 


i 
= 
tz 
a 


n Е ТВТ n n 
TRILL WY AA RS) Ака) TRI = 
И TTT H UGR TX) 


j 
- 
|- = 
P 


) 


В окончательном виде программа для создания в диалоговом режиме 
графического изображения сетевого графика представлена ниже. 


5.2.3. Комплекс функций параметрического 
изображения сетевого графика в диалоговом режиме 


- ХХХКХКХККХККККХКККККХККККККККЕХКККККХКККККККККККККККХКККАХКХКККККХКяХХХХХХ 
s 


комилекс функций для создания в диалоговом режиме 
параметрического изображения сетевого графика 
хххккххххккхкккхккхккххххкккхкххххкхххххкхкхххххххххххххххххххххХххХхХхХхХхХхХхХхххк 
ЕТУАн “СМОЕСНО" 1) 
в ВН (СЕТРОТМТ "\п Введите размер рисунка, <280,210>: " ) 
NS (GETINT "\n Введите число событий, № =") 
В (GETREAL "\п Введите радиус кружочка, <20>: ")) 
(СЕТУАР “СМОЕСЕО" 0) 
(ТЕ (ЕО ЕН NIL) (SETQ ВН (LIST 280 210})} 
(ТЕ (ЕО R NIL) (SETQ В 20)) ; радиус кружочка по умолчанию 


(SETQ H (* РО. ?)) ; высота цифр на сетевом графике 
(DEFUN ЗОВМ (N) ; функция изображения кружочка 
СЕТУАВ "СМОЕСНО" 0) ; с разделением на секторы 


(ЗЕТО ТМ (ТТОА М} 
TT (LIST (- (CAR TR) H) (+ (CAR (CDR ТВ)) Н))) 
(COMMAND "CIRCLE" TR R 


_ Сетевое планирование и управление проектами 219 


"ГТМЕ" ТВ (POLAR TR (* РТ 0.25).В) "" 

"LINE" ТВ (POLAR ТВ (* РТ 0.75) R) "" 

"LINE" TR (POLAR TR (* РТ 1.25} В) "" 

"LINE" TR (POLAR TR (* РТ 1.75) R) "" 

"TEXT" TT H "0" TN) ; ввод номера события 
) 
(COMMAND "LIMITS" "0,0" ВН "ZOOM" "А") 


(ЗЕТУАК "ВЫТРМОПЕ" 0) ; отключение маркеров 

(SETQ КО ; определение номера события 
LS '(}) ; список координат событий 

(ВЕРЕАТ № ; цикл ввода координат событий 


(ЗЕТОК (+1К)}) 
(ЗЕТУАК "СМОЕСНО" 1) 
(SETQ ТВ (СЕТРОТМТ (STRCAT "\п Введите координаты " 
(ТТОА К) "-го события в виде X,Y [можно мышкой] ")) 
) 
(SETQ LS (CONS (LIST K TR) LS)) 
(SOBEN K) ; вызов функции изображения кружочка (события) 
(SETQ МК (GETINT "\п Введите число работ в сети МК = ") 
M 0) 
(REPEAT NR 
(SETVAR "CMDECHO" 1) 
(SETQ M (+ M1) 
ТТУ (GETPOINT (STRCAT "\n Введите продолжительность " 
(ТТОА M) "-й работы в виде I,J, T "))) 
(ЗЕТУАВ "CMDECHO" 0) 
(SETQ ТТ (FIX (NTH 0 TIJ}) 
JJ (FIX (NTH 1 TIJ)}) 
TRI (NTH 1 (ASSOC II LS}) 
TRJ (NTH 1 (ASSOC JJ LS} ) 
U (ANGLE TRI TRJ) 
UGR (* U (/ 180 РТ)) 
D (DISTANCE TRI TRJ} 
TTT (POLAR TRI U (* D 0.4}) 
TRI (POLAR TRI U R) 
TRJ (POLAR TRJ U (- 0 R}) 
TRJ1 (POLAR TRJ U (- 0 {*0.5 В} }) 
TX (RTOS (NTH 2 TIJ} 2 2}) 
(COMMAND "LINE" TRI TRJ1 "" 
"PLINE" TRJ "W" (/ R5) (/ В 25} TRJ "" 
"TEXT" TTT H UGR TX) 
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Для создания в диалоговом режиме графического изображения сетево- 
го графика достаточно обратиться к комплексу функций, созданных выше. 
Данный комплекс функций целесообразно сохранить в файле, например, 
SETRIS.LSP. Допустим, этот файл находится в папке (каталоге) ALISP на 
диске С:. 

После загрузки этого файла в командной строке AutoCAD 

Commard: (LCAD "С: /АЬТОР/ЗЕТВТ 5") 

оудет запрашиваться информация, необходимая для создания графическо- 
го изображения сетевого графика. В качестве примера возьмем сетевой гра- 
фик. представленный на рис. 5.12. На запросы в командной строке AutoCAD 
введем данные. представленные ниже в правой части запросов. Все запросы 
и данные по ним будут отражаться в текстовом окне AutoCAD (Shift+F2). 

Вводимые пользователем значения выделим жирным шрифтом. После 
введения значений по каждому запросу необходимо нажать клавишу Enter 
(Ввод). 


==едите сазмер оисунка, <280,210>: 


5 

введите чисго событий, № = 6 

Б=Еедите радиус коувочка, <20>: 

зЕедите кообдинаты 1-го события: 20,100 

БЕЗДИт= кососликаты 2-го события: 70,150 

Е=едите косолинаты 3-го события: 120,100 

в=едите ксординаты 4-го события: 170,50 

Е=едите косодинаты 5-го события: 220,150 

Б=епите косодинаты 6-го события: 270,100 

В=едите число работ в сети NR = 7 

введите поодолкительность 1-й работы в виде I,J,T : 1,2,8.8 
RESIT поололкительность 2-й работы в виде I,J,T : 1,3,14 
Еведите продолжительность 3-й работы в виде I,J,T : 1,4,9 
Еведите срололжительность 4-й работы в виде I,J,T : 2,5,11.3 
Введите гродолжительность 5-й работы в виде I, J,T : 3,5,25.7 
Введите гоодолкительность 6-й работы в виде I,J,T : 4,6,17.7 
В=здите гоодоляительность 71-й работы в виде I,J,T : 5,6,3.5 


Фрагмент введенных в диалоговом режиме данных для создания графи- 
ческого изображения сетевого графика представлен в текстовом окне 
AutoCAD (Shift+F2) на рис. 5.13. 

По мере ввода информации в строке запросов в поле чертежа будет по- 
являться графическое изображение сетевого графика, который в оконча- 
тельном виде будет выглядеть, как на рис. 5.12. 

А сейчас несколько усложним задачу. Допустим, мы имеем программу 
и результаты расчета этого же сетевого графика, однако получены они 
с применением другого языка программирования, например, Fortran. 
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(LOAD "C:/ALISP/SETRIS") 
Введите размер рисунка, <280,210>: 
Введите число событий, № = 6 
Введите радиус кружочка, <20>: 
Введите координаты 1-по события в виде X,Y [можно мышкой] 20,100 


Введите координаты Z-ro события в виде X,Y [можно мышкой] 170,150 


Введите координаты 3-по события в виде X,Y [можно мышкой] 120, м 
g Yy 


Рис. 5.13. Фрагмент введенных в текстовом окне AutoCAD данных для построения 
в диалоговом режиме изображения сетевого графика 


5.2.4. Разработка комплекса функций создания 
изображения сетевого графика по результатам расчета 
его на языке Fortran 


Предстоит разработать комплекс функций AutoLISP для создания графи- 
ческого изображения сетевого графика в среде AutoCAD по результатах: 
рачета его на языке Fortran. Вся исходная информация вводится из выход- 
ного файла ЗЕТО.КЕЙХ — файла результатов расчета по программе 
ЗЕТО.ЕОК. 

В качестве примера используем сетевой график, представленный на 


рис. 5.14. 
Ниже приводятся программа расчета сетевого графика на языке 


FORTRAN и файл результатов расчета ЗЕТР.КЕЙ. 
100 Format ( 


7“ хххххххххххкхкххкккхххххххкккккххкКкхккКхЖжХхХхХХХХККХКХАХХККХХХХх тор 
/’ Расчет сетевого графика y 
/'Bxonune параметры: ‚| 
/'М,М - число событий и работ в сети 7 
/’ II, JJ - номер события, из которого выходит F 
/'и в который входит работа 7 
/’Т - продолжительность выполнения Т-й работы j) 


222 - Создание объектно-ориентированных систем . 


Рис. 5.14. Сетевой график выполнения проекта 


101 Format ( 
/'Выходные параметры: J 
/’ I-J - работа, выходящая из Т-го | т. 
/’ события и входящая в J-e событие er 
/' T - пгоодолжительность выполнения Т-)-й работы "f 
/’ RII - полный резерв воемени работы | "J 
/’ RC - свободный оезерв времени работы '/ 
/’ TIIE - поздний срок начала работы ty 
/’ TPO - ранвий срок окончания работы '/ 
/’ ТР, TII - ранний и поздний сроки "j 
/’ наступления J-rO события Я 
/*’ R - полный резерв времени события ар 
/° КР - события, лежащие на критическом пути '/) 


DIMENSION KP(99),RII(99},II(99),JJ(99),T(99}, 
* RC(99),TP(99),TII(99},R(99),X{(99),L(99),TPO(99}),TIIH({(99) 
OPEN (5,FILE='SETD.DAN" ,STATUS='0OLD') ` 
OPEN (6 ,FILE=*SETD. REZ’ , STATUS='New') 
WRITE (6,100) 
WRITE (6,101) 
READ (5,20} M,N 
WRITE (6,20) M,N 
20 FORMAT (215,F5.1) 
DO 1 I=1,N 
READ (5,20) II(I),JJ(I),T(I) 
WRITE (6,20) II(I},JJ(I),T(I) 
21 FORMAT (215,6Е8.1) 
1 L(I)=0 
TP(1)=0. 
DO 4 J=2,M 
TMAX=0. 
DO 5 K=1,N 
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ТЕ (JJ(K).NE.J) GO ТО 5 
TP(J)=TP(II(K))+T(K) 
ТЕ (TP(J}).LE.TMAX) GO TO 5 
TMAX=TP{J) 
5 CONTINUE _ 
TP (J) =ТМАХ 
4 CONTINUE 
TII(M)=TP(M) 
DO 6 IP=2,M 
I=M-IP+1 
TMIN=100000. 
DO 7 KF=1,N 
K=N-KF+1 
IF (II(K}).NE.I) GO TO7 
TII(I)=TII(JJ(K))-T({K) 
IF (TII(I).GE.TMIN}) GO TO 7 
TMIN=TII (I) 
7 CONTINUE 
TII(I)=TMIN 
6 CONTINUE 
DO 8 J=1,M 
8 R(J)=TII(J)-TP(J) 
WRITE (6,22) 
22 FORMAT (/' IJ T RII ВС ТТН TPO ’/) 
DO 10 K=1,N 
I=II (K) 
J=JJ (K) 
TPO(K)=TP({(I)+T(K) 
TIIH(K}=TII({(J)-T(K) 
RII(K}=TII(J)-TP(I)-T(K) 
RC (К}=ТР (5) -ТР(Т}-Т(К) 
WRITE (6,21) II(K},JJ({K),T(K),RII(K}),RC(K), 
* TIIH(K},TPO(K) 
‚ ТЕ (ABS(R(I)-R(M}).GT..0001) GO TO 10 
IF (ABS(R(J)-R(M)}.GT..0001) GO TO 10 
IF (ABS(R(I)-R(J})}}.GT..0001.0R. | 
* АВЗ(ТИН(К)-ТТТ(Т}).СТ..0001} GO TO 10 
(К) =1 
10 CONTINUE 
- WRITE (6,23) 
23 FORMAT (/' J TP TIIR '/) 
DO 9 J=1,M 
9 WRITE (6,24) J,TP(J),TII(J),R(J) 
24 FORMAT (4X,I5,3F8.1) 
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КР (1) =1 
КК=1 
DO 11 K=1,N 
I=II (K) 
J=JJ (К) 
IF (L(K).EQ.0} GO TO 11 
ТЕ (Т.МЕ.КР(КК)) GO TO 11 
KKX=KK+1 
KP (KK) =) 
11 CONTINUE 
WRITE (6,25) 
25 FORMAT (/' Коитический NMyTb'/) 
WRITE (6,26) (KP(I},I=1,KK) 
25 FORMAT (1514) 
STOP 
END 


Результаты расчета сохраняются в файле SETD.REZ в следующем виде: 


2асчет сетевого графика 

входные параметпы: 

M,N - число событий и работ в сети 

ТТ, JJ - комер события, из которого выходит 
и 3 который входит работа 

- продолжительность выполнения Т-й работы 
Выходные параметры: 

I-J - работа, выходящая из Т-го 

события и входящая в J-e событие 

T - продолжительность выполнения Т-/-й работы 
RII - полный резерв времени работы 

ВС - свободный резерв времени работы 

ТТТН - поздний срок начала работы 

ТРО - раений срок окончания работы 

Т2, ТТТ - ранний и поздний сроки 
наступления 4-го события 

В - полный резерв времени события 

КР - события, лежащие на критическом пути 


10 11 

12 1.0 
1 3 2.0 
1 6 10.0 
2 7 14.0 
3 4 3.0 
4 5 1.0 
5 8 8.0 
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6 9 1.0 

7 8 1.0 

8 9 2.0 

9 10 1.0 

I J T RII RC ТИН ТРО 

1 2 1.0 0.0 0.0 0.0 1.0 
1 3 2.0 2.0 0.0 2.0 2.0 
1 610.0 7.0 0.0 7.0 10.0 
2 714.0 0.0 0.0 1.0 15.0 
3 4 3.0 2.0 0.0 4.0 5.0 
4 5 1.0 2.0 0.0 7.0 6.0 
5 8 8.0 2.0 2.0 8.0 14.0 
6 9 1.0 7.0 7.0 17.0 11.0 
7 8 1.0 0.0 0.0 15.0 16.0 
8 9 2.0 0.0 0.0 16.0 18.0 
9 10 1.0 0.0 0.0 18.0 19.0 
J TP TII R 

1 0.0 0.0 0.0 

2 1.0 1.0 0.0 

3 2.0 4.0 2.0 

4 5.0 7.0 2.0 

5 6.0 8.0 2.0 

6 10.0 17.0 7.0 

7 15.0 15.0 0.0 

8 16.0 16.0 0.0 

9 18.0 18.0 0.0 

10 19.0 19.0 0.0 
Критический путь 


12789 10 


Для создания графического изображения сетевого графика и результа- 
тов расчета необходимо определить размеры рисунка и кружочка. Всю эту 
информацию следует вводить в диалоговом режиме. Высота текста может 
быть определена, например, как 0.3 от радиуса кружочка. Если информа- 
ция не вводится, она принимается по умолчанию. Как правило, информа- 
ция по умолчанию указывается в угловых скобках, например, <20>. 

Определить размеры рисунка и кружочка, а также высоту цифр на сете- 
вом графике можно следующим образом: 

(ЗЕТУАК "СМОЕСНО" 1) ; установка режима диалога 
(SETQ BH (СЕТРОТМТ "\п Введите размер рисунка, <280,210>: " } 

В (GETREAL "\п Введите радиус кружочка, <10>: ")) 
(ЗЕТУАВ "СМОЕСНО" 0) ‚ отключение эха команд 


8 — 1278 
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(ТЕ (EQ БН NIL) (SETQ ВН (LIST 280 210))) ; размер рисунка 


(IF (EQ К NIL) (SETQ R 10) } ; радиус кружочка по 
‚ умолчанию 

(ЗЕТОН (* R0.3)) ; высота цифр на сетевом 
; графике 


Следующий шаг — считывание необходимой информации из файла ре- 
зультатов расчета. Допустим, файл результатов расчета SETD.REZ нахо- 
дится на диске С: в папке (каталоге) ORGANIZA. Открываем файл резуль- 
татов расчета расчета: 


(SETQ Е (OPEN "C:\\ORGANIZA\\SETD.REZ”" "r")) 


Считаем строки и сформируем из них списки. При этом строки (запи- 
си) с поясняющей информацией, а также пустые игнорируем. 


; СУнкция (Е) для считквания строки и представления ее в виде списка: 
(DEFUN E {}) 
(STRCAT "( " (READ-LINE F) " )”) 
} 
; Сункция (EE) для пропуска поясняющих и пустых строк в файле 
; оезультатов расчета SETD.REZ: 
(DEFUN EB () 
(WHILE (МОТ (NUMBERP (CAR (SETQ SS (READ (E)))})) (CHR 10}) 
} 


Считывание первой строки данных производится следующим образом: 


(ЕЕ) ; пропуск поясняющих и пустых строк 
(SETQ — NNR SS ; считывание первой строки файла 
; СЕТО. REZ 
NN (NTH 0 NNR?) ; определение числа событий 


(PRINC (STRCAT " Число событий в сети - " (ТТОА ММ))} 


Как уже отмечалось, кружочки на сетевом графике разделены на секто- 
ра с указанием номера события. 

_ Для создания графического изображения кружочка с секторами разра- 
ботаем функцию (ЗОВМ...): 


(DEFUN SOEN (М) ; функция изображения кружочка 
(ЗЕТУАК "СМОЕСНО" 0} ; С разделением на сектора 
(SETQ ТМ (ТТОА N) 

TT (LIST (- (CAR ТВ) Н} (+ (CAR (CDR TR)) Н))} 
) 
(COMMAND "CIRCLE" TR R 
"LINE" TR (POLAR TR (* PI 0.25) В} "" 
"I LINE” TR (POLAR TR (* PI 0.75) R) "" 
"LINE" TR (POLAR TR (* PI 1.25) R) "" 
"LINE" TR (POLAR TR (* PI 1.75) R) "" 
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"TEXT" ТТН "0" TN) ; ввод номера события 
Местоположение событий согласно логике выполнения работ и нагляд- 
ности их представления пользователь сможет определить путем ввода CO- 
ответствующих координат Х и У или с помощью мышки. 
(ЗЕТОК 01$ '()) 
(REPEAT NN ; цикл ввода координат событий 
(SETQ K (+ 1 K}) | 
(ЗЕТУАК "СМОЕСНО" 1} 
(SETQ TR (СЕТРОТМТ (STRCAT "\п Введите координаты " 
| (ТТОА К) "-го события X,Y [можно мышкой] "})) 
(SETQ LS (CONS (LIST K TR) 15) } ; список координат событий 
(ЗОВМ К} ; отображение события на экране 


) 
Ввод данных по работам целесообразно оформить в виде цикла: | 


(ЗЕТО NR (NTH 1 NNR) ; определение числа работ в сети 
LTR '()) 
(REPEAT NR ; ЦИкл изображения работ на экране 


(EE) 

(SETQ TIJ SS) 

(SETVAR "CMDECHO" 0) 

(SETO II (FIX (NTH 0 TIJ}) 
JJ (FIX (NTH 1 TIJ}) 
TRI (NTH 1 (ASSOC II LS)}) 
TRJ (NTH 1 (ASSOC JJ LS) ) 
U (ANGLE TRI TRJ) 
UGR (* U (/ 180 PI)) 
D (DISTANCE TRI TRJ) 
TTT (POLAR TRI U (* D 0.4)}) 
TRI (POLAR TRI U R) 
TRJ (POLAR TRJ U (- 0 R}) 
TRJ1 (POLAR TRJ U (- 0 (* 0.5 R}}) 


считывание данных по работе 

‚; отключение эха команд 

; номер предшествующего события 
‚ номер последующего события 

‚; точка начала работы 

; точка окончания работы 

угол наклона работы в радианах 
; угол наклона работы в градусах 
длина стрелки (работы) 


™% -e ` ~” - `` `` в 


< b 


TX (RTOS (NTH 2 TIJ) 20); ; длительность работы 
LE (LIST II JJ UGR TRI TRJ TTT) ; данные изображения работы 
LTR (CONS LE ГТК) } ; список данных для 
| ; изображения работ 
(COMMAND "LINE" TRI TRJ1 "" ; изображение работы 
"РЕТМЕ" TRJ1 "И" (/ В 5) (/ В 25} TRJ "" ; изображение стрелки 
"TEXT" ТТТ H UGR TX) ; изображение длительности 
; работы 


e 
Далее введем результаты расчета по работам и событиям, а также выпол- 
ним их графическое изображение на сетевом графике: 
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(ЗЕТУАВ "СМОЕСНО" 0) ; отмена режима диалога 

(SETQ LR * 0 LCC *(}} 

(REPEAT NR ; цикл ввода из файла результатов 
(БЕ) ; расчета по работам 


(SETQ LR {CONS SS ГВ) ) 

) 

(SETQ LX (REVERSE LR)) 

(REPEAT NN ; цикл ввода из файла результатов 
(ЕЕ) ; расчета по событиям 
(SETQ LCC (CONS SS ГСС) } 

) 

(SETQ LCC (REVERSE LCC)) 


(SETQ M 0) 
(FOREACH LC LCC ; ЦИКЛ изображения на графике 
; результатов 
(ЗЕТО М (+ 1M) ; расчета по событиям 

TR (NTH 1 (ASSOC М 15} ) 
TTP (POLAR TR (* PI 1.1) (* R0.8)) ; точка изображения Тр 
ттт (POLAR TR {* PI 1.8) (*КО0.4)) ; точка изображения Trn 
TRP (POLAR ТВ (* РТ 1.4} (*ВО0.6)}} ; точка изображения Rí 


(COMMAND “TEXT” TTP H "0" (RTOS (NTH 2 LC) 2 0) 
"TEXT" TTII H "0" (RTOS (NTH 1 LC) 20) 
"TEXT" TRP H "0" (RTOS (NTH 3 LC) 2 0)) 
) 
; цикл изображения результатов расчета по работам 
(FOREACH ЕЁ LR 


(SETQ I (NTH 0 EL) ; начальный индекс работы (I - J) 
J (NTH 1 EL) ; конечный индекс работы (I - J) 
RII (NTH 3 EL) ; полный резерв времени работы Вп 
RC (NTH 4 EL) ; свободный резерв времени работы Вс 
TIIH (МТН5 EL) ; поздний срок начала работы Тпн 
ТРО (NTH 6 EL) ; ранний срок окончания работы Тро 


) 
; цикл изображения результатов расчета по работе 

(FOREACH LE LTR 
(SETQ II (NTH 0 LDE) 
JJ (NTH 1 LE) 


ki 


; начальный индекс работы (I - J) 
; конечный индекс работы (I - J) 


U (NTH 2 LE) ; угол наклона работы (I - J) 

ТЕТ (NTH 3 LE) ; точка начала работы (I - J) 

TRJ (NTH 4 LE) ; точка конца работы 

ТТТ (NTE 5 DE) ; точка изображения длительности 
| ; работы 


TTIIH (RTOS TIIH 2 0) ; поздний срок начала работы Тпн 
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TTPO (RTOS ТРО 2 0) ; ранний срок окончания работы Тро 
TRII (RTOS RII 2 0) ; полный резерв времени работы Ri 
TRC (RTOS RC 2 0) ; свободный резерв времени работы Вс 
ТВ (STRCAT TRII "/" ТВС) ; изображение резервов Вп/Кс 


(ТР (AND {ЕО I ТТ) (EQ J JJ)) 


(COMMAND 
"TEXT" TRI H U TTIIH ; изображение Тпн 
"TEXT" (POLAR TRJ РТ (* 2Н))} H U TTPO ; изображение Тро 


"ТЕХТ" (POLAR ТТТ (* PI 1.5} {*1.5Н)) H U TR))) ; Вп/Бс 
) 
Теперь введем информацию по критическому пути и изобразим крити- 
ческий путь на графике утолщенной линией: 


(ЕЕ) ` ; считывание из файла результатов расчета критического пути 
(SETQ LKSS 
N 1) 
(FOREACH EK LK цикл изображения критического 
(SETQ L1 (LIST ЕК (NTH N LK))) ; пути утолщенной линией 
(SETQ М (+ 1N)) 
(FOREACH LE LTR 
(ЗЕТО II (NTH 0 LE) ; начальный индекс работы (I - J) 
JJ (NTH 1 LE) конечный индекс работы (I - J) 
TRI (NTH 3 LE) точка начала работы (I - J) 


bak 


» a 


TRJ (NTH 4 LE) ; точка конца работы (I - J) 
L2 (LIST II JJ}) ; список работ (I - J) 
(IF (EQUAL L1 L2) ; условие изображения критического пути 


(COMMAND "PLINE" TRI "М" (/ В 10} (/ К 10} TRJ ""}}) 
) 


5.2.5. Комплекс функций создания изображения 
сетевого графика по результатам расчета его 
на языке Fortran 


. ХХХ кКХкКкКХХхКХхкХХХХХХХхХхХККХкАХХКХХХКХАХКХКХХККККХ 
f 


; Комплекс функций для создания изображения сетевого графика по 
; результатам расчета его на языке Fortran 
$ kkkkkkkřkěýěġxkěkkžýġkěkkkžkėxkkěk*ėákkákėxkėxkěák*ėž*ėż*kėžk*ėák*kě*žż*ėá*ėá*ėżkžkžkėžžėż*ěžáėákěk*ėák*kž*ėžkėż*ėá*šž*kžk*ėxk*ėkkkákňž*žk*á*ėxá*žáá*žák*ėė*ėķėķ 
(SETVAR "CMDECHO" 1) ; установка режима диалога 
(SETQ BH (СЕТРОТМТ "\п Введите размер рисунка, <280,210>: ') 
В (GETREAL “\п Введите радиус кружочка, <10>: ")} 
(ЗЕТУАВ "СМОЕСНО" 0) ; отключение эха команд 
(ТЕ (ЕО ВН NIL) (SETQ ВН (LIST 280 210}}) ; размер рисунка 
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(ТР (EQ R NIL) (SETQ R 10)) ; радиус кружочка по умолчанию 
(ЗЕТОН(ВО.3)) ; высота цифр на сетевом графике 
; Пример обращения к файлу результатов расчета показан ниже 
(SETQ Е (OPEN "C:\\ORGANIZA\\SETD.REZ" "г")) 
; Создание функции (E) для считывания строки B виде списка 
(DEFUN E () (STRCAT "( " (READ-LINE F) " }")) 
; Создание функции (EE) для пропуска поясняющих и пустых о 
; строк в файле результатов расчета SETD. REZ 
(DEFUN EE () 

(WHILE (NOT (NUMBERP (CAR (SETQ SS (READ (E)}})))} (CHR 10)) 


(EE) ; пропуск поясняющих и пустых строк 

(SETQ NNR SS ; считывание первой строки файла SETD.REZ 
NN (NTH 0 NNR}) ; определение числа событий 

(PRINC (STRCAT " Число событий в сети - " (ТТОА ММ) )} 

(DEFUN SOEN (N) ; функция изображения события 


(ЗЕТУАВ "СМОЕСНО" 0) 
(SETQ ТМ (ТТОА М) 

TT (LIST (- (NTH 0 TR) (* 0.9 H}) (+ (NTH 1 TR) (*1.1Н)))) 
(COMMAND "CIRCLE" TR R) ; отображение события кружочком 
(COMMAND ; разделение кружочка на сектора 

"LINE" TR (POLAR TR (* PI 0.25} В} "" 

"LINE" TR (POLAR TR (* PI 0.75) В} "" 

"LINE” TR (POLAR TR (* PI 1.25) R) "" 

"LINE" TR (POLAR TR (* PI 1.75) R) "" 

"TEXT" IT H "0U TN} ; отображение номера события 
) 
(COMMAND "LIMITS" "0,0" BH "ZOOM" "A") 


(SETVAR "BLIPMODE" 0) ; отключение маркеров 
(СЕТОК 0 LS '(}) 
(REPEAT ММ ; цикл ввода координат событий 


(SETQ K (+1К)) 
(SETVAR "CMDECHO"” 1) 
(SETO TR (GETPOINT (STRCAT "\п Введите координаты " 
(ТТОА К) "-ro события X,Y [можно мышкой] "))) 
(SETQ LS (CONS (LIST К ТВ) LS)) ; список координат событий 


(СОВМ К) ; отображение события на экране 
) 
(SETQ NR (NTH 1 NNR) ; определение числа работ в сети 
LTR '(}} 
(REPEAT NR ; цикл отображения работ на экране 
(EE) 


(ЗЕТО TIJ SS) | ; считывание данных по работе 
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{ЗЕТУАВ "СМОЕСНО" 0) ; отключение эха команд 
(SETQ II (FIX (NTH 0 TIJ})) ‚ номер предшествующего события 
JJ (FIX (NTH 1 ТБ) ) ; номер последующего события 


TRI (NTH 1 (ASSOC II 15}) ; точка начала работы 
TRJ (NTH 1 (ASSOC JJ 15}} ; точка конца работы 


U (ANGLE TRI TRJ) ; угол наклона работы в радианах 
UGR (* U (/ 180 РТ)} ; угол наклона работы в градусах 
р (DISTANCE TRI TRJ) ; длина стрелки (работы) 


ТТТ (POLAR TRI U (*00.4)) 

TRI (POLAR TRI U R) 

TRJ (POLAR TRJ U ({- 0 R)) 

TRJ1 (POLAR TRJ U {-0 (* 0.5 R)})) 


TX (RTOS (NTH 2 TIJ) 2 0) ; длительность работы 
LE (LIST II JJ UGR TRI TRJ ТТТ} ; данные, изображающие работу 
LTR (CONS LE LTR) ) ; данные для изображения работ 
(COMMAND "LINE" TRI TRJ1 "" ; отображение работы 
"PLINE" TRJ1 "И" (/ В 5) {/ В 25} TRJ "" ; изображение стрелки 
"TEXT" TTT H UGR TX) ; изображение длительности работы 
} 
(ЗЕТУАК "СМРЕСНО" 0) ; отмена режима диалога 
(SETQ LR '() LCC * 0) | 
(REPEAT NR ; цикл ввода из файла результатов 
(EE) ; расчета по работам 


(SETQ LR {CONS SS ВВ) ) 
} 
(SETQ LR (REVERSE ЁВ)) 
(REPEAT NN ; цикл ввода из файла результатов 
(EE) ; расчета по событиям 
(SETQ LCC- (CONS SS ГСС))) 
(SETQ LCC (REVERSE LCC) 


M 0) 
(FOREACH LC LCC ; цикл отображения результатов 
(ЗЕТО М (+1М) ; расчета по событиям 
ТВ (NTH 1 (ASSOC М 15} ) 
TTP (POLAR ТВ ({* PI 1.1) (* R0.8)) ; точка изображения Тр 
ТТТТ (POLAR ТВ (* РТ 1.8} (* R0.4)) ; точка изображения Тп 
TRP (POLAR TR (* PI 1.4) (*ВО0.6)}} ; точка изображения Вп 


(COMMAND "TEXT" TTP H "0" (RTOS (NTH 2 LC) 2 0) 
"TEXT" TTII H "0" (RTOS (NTH 1 LC} 2 0) 
"TEXT" TRP H "0" (RTOS (NTH 3 LC} 20)) 
} 
(FOREACH EL LR ; цикл ввода результатов расчета по работам 
(SETQ I (NTH 0 EL) ; начальный индекс работы (I - J) 
J (NTH 1 EL) ; конечный индекс работы (I - J) 


= = Ae 
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RII (NTH 3 EL) ; полный резерв времени работы Rī 

ВС (NTH 4 EL) ; свободный резерв времени работы Вс 
TIIH (NTH 5 EL) ; поздний срок начала работы TNH - 
ТРО (NTH 6 EL) ; ранний срок окончания работы Тро 


) 


(FOREACH LE LTR цикл ввода результатов расчета по работе 


о 


(SETQ II (NTH 0 ГЕ) ; начальный индекс работы (I - J) 
JJ (NTH 1 LE) ; конечный индекс работы (I - J) 
U (NTH 2 LE) ; угол наклона работы (I - J) 
TRI (NTH 3 LE) ; точка начала работы (I - J) 
TRJ (NTH а LE) ; точка конца работы 
TIT (NTE 5 LE) ; точка отображения длительности работы 
ТТТТН (RTOS TIIH 2 0) ; поздний срок начала работы Тпн 
TTPO (RTOS ТРО 2 0) ; ранний срок окончания работы Тро 
TRII (RTOS RII 20) ; полный резерв времени работы Ri 
TRC (RTOS RC 2 0) ; свободный резерв времени работы Вс 


TR (СТВСАТ TRII "/" TRC) ; отображение резервов в виде Вп/Вс 
) 


(IF (AND (EQ I II) (EQ J JJ}) 
(СОММАМО 
"TEAT" TRI H 0 ТРЕЕ ; отображение Тпн 
"TEXT" (POLAR TRJ РТ (* 2 H}) НО TTPO - отображение Тро 
"TEXT" (POLAR TTT (* PI 1.5) (* 1.5 H)) НО ТВ) )}; Вп/Вс 
) 
(EE) 
(SEQ LK SS ; считывание из файла результатов 
N 1) ; расчета критического пути 
(FOREACH ЕК ГК ; цикл отображения критического 
(SETQ L1 (LIST ЕК (NTH N LK}); пути утолщенной линией 
N (+ 1 N)) 
(FOREACH LE LTR 
(SETQ II (NTH 0 LE) ; начальный индекс работы (I - J) 
JJ (NTH 1 LE) ; конечный индекс работы (I - J) 
TRI (NTH 3 LE) ; Точка начала работы (I - J) 
TRJ (NTH 4 LE) ; точка окончания работы (I - J) 
L2 (LIST II JJ)) ; список работ (I - J) 
(IF (EQUAL L1 L2) ; условие отображения критического пути 
(COMMAND "PLINE" ТЕТ "И" (/ R 10) (/ R 10) TRJ ""))) 
) 
(CLOSE F) 


После загрузки и выполнения комплекса функций из файла SET- 
DFOR.LSP на экране будет формироваться изображение сетевого графи- 
ка. В окончательном виде сетевой график выполнения проекта представ- 
лен на рис. 5.15. 
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Рис. 5.15. Сетевой график выполнения проекта 


5.3. Разработка экспертной системы 


Экспертные системы относятся к числу интеллектуальных вычислительных 
систем и предназначены для моделирования или имитации поведения опыт- 
ных специалистов-экспертов при решении какого-либо узкого вопроса. 

Экспертные системы позволяют накапливать, систематизировать и со- 
хранять знания и профессиональный опыт специалистов высокой ква- 
лификации, занятых в первую очередь в тех областях, где задачи и их 
решения формализованы слабо или совсем неформализованы (неструкту- 
рированы), например, в машиностроении, экономике, вычислительной 
технике, медицине и др. 

Таким образом, экспертная система представляет собой программный 
комплекс, обеспечивающий накопление, хранение, обповление и возмож- 
ность использования специально подготовленных композиций знаний. 

Структурно экспертная система состоит из трех основных частей: ин- 
терфейса, механизма вывода и базы знаний (рис. 5.16). 

Интерфейс — это некоторая подсистема, язык взаимодействия пользо- 
вателя с машиной, экспертной системой на ограниченном естественном 
языке или на специфическом искусственном языке, используемом в дан- 
ной предметной области. 

Механизм вывода представляет собой комплекс программ, который 
использует базу знаний, факты, гипотезы, учитывает запросы пользова- 
теля и тем самым позволяет решать поставленные задачи. В механизмах 
вывода используются несколько стратегий вывода (то есть переходов от 
одного правила к другому) — прямой, обратный и комбинированный. 

База знаний — это совокупность фактов и знаний из той или иной обла- 
сти, определенным образом представленных в программном виде пользо- 
вателями, экспертами и инженерами знаний. База знаний содержит два 
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Программное обеспечение 


Инженер 


Интерфейс _ „ Механизм _„ База знаний 


вывода знаний 


Рис. 5.16. Упрощенная схема функционирования экспертной системы 


основных элемента: факты (данные) из предметной области и специаль- 
ные эвристики или правила, которые управляют использованием фактов 
при решении проблем. | 

Качество заключений, выводов, рекомендаций, получаемых с помощью 
той или иной экспертной системы, определяется по способу представления 
знаний, объему базы знаний и мощности используемой машины вывода. 

Сложность и многообразие структур знаний вызвали к жизни несколь- 
ко различных способов их представления, из которых следует выделить 
логическое исчисление, фреймовые и продукционные системы, семанти- 
ческие сети. Каждый способ представления знаний имеет свои достоин- 
ства и недостатки. 

Логическое исчисление основано на представлении знаний с помощью 
предикатов и применении к ним формальных методов вывода, например, 
метода резолюций и др. Предикат представляет собой отношение между 
объектами. Например, предикат Брат (Петя, Витя) означает, что Петя -— 
брат Вити. В скобках указаны объекты, к которым применяется данный 
предикат (отношение) Брат. 

Такая форма представления знаний нашла широкое применение в язы- 
ке логического программирования PROLOG. 

Фреймовая система основана на представлении знаний в виде опреде- 
ленных структур, называемых фреймами. 

Основу семантических сетей составляет представление знаний в виде 
ориентированного графа с размеченными вершинами и дугами. Вершинам 
соответствуют объекты или ситуации, а дугам — отношения между ними 
(рис. 5.17). 

Представление знаний в такой форме более наглядно и понятно. Семан- 
тические сети адекватно отражают взаимосвязь объектов. 


Брат 


Рис. 5:17. Схема представления знаний в семантической сети 
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Продукционные системы основаны на представлении знаний в виде со- 
вокупности условий и выводов. Если выполняются определенные усло- 
вия, то будет такой-то результат, вывод. Например, если Петя — сын дяди 
Миши и Витя — сын того же дяди Миши, то Петя — брат Вити. 

Рассмотрим основные этапы разработки простейшей экспертной сис- 
темы. 


5.3.1. Постановка задачи 


Следует разработать комплекс функций AutoLISP простейшей экспертной 
системы. Представление знаний обеспечивается с помощью продукционной 
системы, использующей представление знаний (правил) в виде: если — то. 


5.3.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


В качестве стратегий вывода результата используют прямой, обратный 
и комбинированный выводы (стратегии). 

При прямом выводе отправной точкой служит известный начальный на- 
бор фактов. С учетом его и базы правил методом прямого сравнения име- 
ющихся фактов и условий осуществляется поиск результата. 

При обратном выводе отправным 
моментом служит список предполага- 
емых результатов (выводов, заключе- 


ний, действий), которым в конечном 


счете ставится в соответствие множе- 1 Если F3 и F4 то F6 
3 2 Если F6 и F2 то Е9 | 

ство фактов (условий), делающих их 3 Если F1 то F4 
правомочными. Е 4 

Совместное их использование воз- | 
можно путем определенного чередо- ? 
вания. 

Рассмотрим стратегию прямого вы- 1 Если F3 и F4 то F6 
вода. Имеются несколько фактов. и 


Обозначим их F1, F2, F3, F5, F7, F8. 


F6 
Допустим, существует несколько F1 Е | F3] 
правил. Представим их, как на рис. 5.18. ыы 


Эти правила -представляют базу 


знаний. Чтобы найти результат Е9, 1 Если ЕЗи Е4 то Еб 
й 2 Если F6 и F2 то F9 
механизм вывода сравнивает началь 3 Если F1 to F4 


ный набор фактов (F1 F2 F3 F5 F7 F8) 


с фактами, содержащимися в базе 3Ha- | 
ний в правилах, изложенных в виде Рис. 3.18. Правила выбора результата 


F9 


236 Создание объектно-ориентированных систем 


условий. Используя правило под номером 3 в базе знаний, список фактов 
можно расширить. 

Правило 3 гласит: если мы имеем факт F1, получим вывод (результат) 
Е4, который вносится в расширенный список фактов. Механизм вывода 
снова сравнивает, но уже расширенный список фактов (F1 F2 F3 F4 F5 F7 
FS) с фактами, содержащимися в базе знаний в правилах, представленных 
в виде условий. В данном случае согласно правилу под номером 1 в спи- 
сок фактов добавляется факт Еб. На следующем этапе в соответствии 
с правилом 2 получим искомый результат — факт Е9. 


5.3.3. Разработка последовательности действий 
и комплекса функций для создания экспертной системы 


Рассмотрим простейшую экспертную систему, с помощью которой по име- 
ющимся фактам можно определить неисправности в двигателе. 

Создадим тестовый файл ЕКРЕКТ.РАМ, в котором собраны известные 
начальные факты O неисправностях в двигателе. Допустим, этот файл Ha- 
ходится на диске С: в папке (каталоге) VLAutoLISP и в файле имеются 
следующие факты, которые вводятся как строковые константы с началь- 
ной пустой строкой: 

"Слабая искоа на свечах" 


"Слабо вращается коленвал" 
х 


Для ввода фактов в виде списка в экспертную систему откроем файл 
данных (фактов) и создадим на AutoLISP функцию (ВЕАПЕ..) для cyn- 
тывания начальных фактов, вывода их на экран и в файл результатов: 


; Открытие файла данных ЕКЗРЕКТ.РАМ для считывания фактов 
(SETQ FD (OPEN "С: \\УБАЧЕОБТЗР\ \ЕКЗРЕКТ.ПАМ" "r")) 
; Создание Фуннии для считывания строки в виде списка 
(ПЕРОМ PEŁDL (FF) 
(STRCAT "( " (READ-LINE FF) " )")) 
; Открытие Файла EKSPERT.DOC для записи фактов и результатов 
(SETQ FW (OPEN "С:\\УБАЧЕОЬТЗР\ \ЕКОРЕКТ.ООС" "а"}} 
(DEFUN ВЕАОЕ ( / Z) ; считывание фактов из файла данных 
(SETQ FAKTI *()) 
(HILE (NOT (EQ (SETQ Z (READ (READL FD))) NIL)) 
(SETQ FAKTI (CONS Z FAKTI) )) 
(PRINC "\n " FW) 
(PRINC "\n ") 
(PRINC ЕАКТТ) 
(PRINC FAKTI FW) 
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Начальные факты можно ввести и в диалоговом режиме, используя. 
функцию (GETSTRING...), которая запрашивает у пользователя строко- 
вую константу и возвращает ее. 


(DEFUN READD { / 7) ; считывание фактов в диалоговом режиме 
(SETO FAKTI '(})} 
(PRINC "\п Введите факты в кавычках на отдельных строках"} 
(PRINC "\п для завершения нажмите клавишу Enter") (PRINC "\п ") 
(WHILE (МОТ (EQUAL (SETQ Z (READ (STRCAT "( " ({READ-LINE) 
" }"})) NIL)) 
(ЗЕТО FAKTI (CONS Z РАКТТ))) 
(PRINC "\n " FW) 
(PRINC FAKTI FW) 
) 

Далее создадим текстовый файл правил (знаний) EKSPERT.PRA, B KO- 
тором будут находиться правила, сформулированные неким экспертом. 
Этот файл часто называют базой знаний. В нашем примере файл может 
выглядеть следующим образом (с пустой строкой в конце): 


1 (“нет искры на свечах") ("двигатель не запускается") 
("плохое соединение проводов"} ("малый ток в первичной кз") 
("малый ток в первичной K3") (“малый ток во вторичной кз") 
("малый ток во вторичной кз") ("слабая искра на свечах") 
("слабая искра на свечах") ("плохой аккумулятор") 

("плохой аккумулятор") ("малый ток в первичной кз") 

("слабо вращается колен вал") ("плохой аккумулятор"} 
("пробит конденсатор") ("нет тока в первичной K3") 

("нет тока в первичной кз") ("нет тока во вторичной кз") 

10 (“нет тока во вторичной кз") ("нет искры на свечах") 


Первый элемент в строке указывает на номер правила, последний — на 
получаемый вывод (результат). Все элементы строки между первым и по- 
следним — это условия, при которых может быть получен результат. Так, npa- 
вило под номером 1 означает следующее: если нет искры на свечах, двигатель 
не запускается. Здесь применена упрощенная схема представления правила. 

Для ввода правил в виде списка в экспертную систему откроем файл 
правил (знаний) n создадим на AutoLISP функцию (ВЕАЮР...) для cun- 
тывания базы знаний: 

; Открытие файла знаний ЕКЗРЕКТ.РКА для считывания правил 
(SETQ ЕР (OPEN "C:\\VLAUtOLISP\\EKSPERT. PRA" "r")) 
(DEFUN READP {/ 2) ; считывание правил из файла EKSPERT. PRA 
(SETQ BAZA '()) 
(WHILE (NOT (EQ (SETQ Z (READ (READL FP))) NIL)) 
(SETQ BAZA (CONS Z BAZA) )) 
(SETQ BAZA (REVERSE BAZA) )) 


о O ~s AMAN Be U NY 
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Для поиска искомого ответа по имеющимся фактам при наличии соот- 
ветствующей базы знаний создадим на AutoLISP функцию (ЕК5РЕВТ...), 
которая должна отражать начальные факты и результаты работы эксперт- 
ной системы на экране и в файле ЕК5РЕКТ.КЕЙ: 


(РЕРИХ EKSPERT {BAZA) ; функция поиска вывода 
(PRINC "\п\п КОММЕНТАРИЙ: ") 
(PRINC "\п Результаты работы экспертной системы выводятся ") 
(FRINC “\п на экоан и в файл EKSPERT.DOC") 
(PRINC "\п\п Начальные факты в файле EKSPERT.DAN: " FW) 
PRINC "\п\п бачальные факты в файле ЕКЗРЕКТ.ПАМ: " ) 


= 


(READF ; считывание из файла данных начальных фактов 
(READP) ; считывание из файла знаний правил 


(PRINC "\п\п РЕЗУЛЬТАТЫ: ") 
(FOREACH PR BAZA ; цикл просмотра правила 


; в базе знаний 


(SETQ USL (CDR (REVERSE (СОК РК}))) ; выделение условий 

(COND ((PODMNOJ USL FAKTI) ; если условие выполнено - поиск: 

(SETQ У (LAST РВ) ; выделение вывода (результата) 
№2 (CAR PR}) ; определение номера правила 


(PRINC (STRCAT "\п Согласно правилу " (ТТОА МР) " из" 

"Сазы знаний ЕКОРЕКТ.РВА ответ: ") FW) 
RINC (CAR V) FW) ; распечатка вывода в файл результатов 
PRINC (ЭТЕСАТ "\п Согласно правилу " (ТТОА NP) " из " 

"базы знаний EKSPERT.PRA ответ: \п" ) } 


(PRINC (САВУ)) ; распечатка вывода на экран 
(SETQ FAKTI (CONS У FAKTI ))); ввод вывода в список фактов 
(T ЕАКТГ))) 


(PRINC "\n КОНЕЦ! °”) (PRIN1) 
) 

В функции (EKSPERT...) используются две вспомогательные функции 
(РЕКММ...) и (РООММО)...) для определения пересечения двух MHO- 
жеств элементов в списках Х, У и проверки вхождения множества элемен- 
тов списка Х в множество элементов списка У соответственно: 

(DEFUN PERMN (ХУ) ; функция пересечения множеств X n Y 
(COND ((NULL X) NIL) 


( (MEMBER (CAR X) Y) (CONS (CAR X) (PERMN (CDR X) У))) 
(T (PERMN (CDR X} Y))) 


(DEFUN PODMNOJ (X Y) ; Функция проверки вхождения множества X B Y 
(EQUAL X (РЕВММ X Y)) 
| | 

В окончательном виде простейшая экспертная система со стратегией 
прямого вывода будет выглядеть следующим образом. 
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5.3.4. Комплекс функций для создания 
экспертной системы | 


œ ЖАЖЖХКХКХКККХКККХККККККХКАКККК КК КК КК КК К КХККККХККККХЖХХЖКХККХКХ 
$ 


; Простейшая экспертная система со стратегией прямого вывода 
. хххххххххкххххкхкхкххкхкккххххкххкхкхххкхкхххкхкххкххкхкххххкхХхкКхжХХХХХхХхХхХкХх 
; Открытие файла данных ЕКЗРЕКТ.ПАМ для считывания фактов. 
(SETQ FD (OPEN "С: \\УГАОТОБТ$Р\ \ЕКОРЕКТ.ОАМ" "r")) 
; Открытие файла знаний EKSPERT.PRA для считывания правил 
(SETQ ЕР (OPEN "С: \\УГАОТОЬТЗР\ \ЕКЗРЕКТ.РВА " "г")) 
; Открытие файла EKSPERT.DOC для записи фактов и результатов 
(SETQ РИ (OPEN "C:\\VLAUTOLISP\\EKSPERT.DOC" "а"}) 
(TEXTSCR) 
; Создание функции для считывания строки B виде списка 
(DEFUN READL (FF) (ЭТВСАТ "( " (READ-LINE ЕЁ) ")}")) 
(DEFUN READF ( / 2) ; считывание фактов из файла данных 
(SETQ FAKTI '()) 
(WHILE (МОТ (ЕО (SETQ Z (READ (READL FD))) NIL)) 
(SETQ FAKTI (CONS Z FAKTI))) 
(PRINC "\п " FW) (PRINC "\n ") (PRINC FAKTI) (PRINC FAKTI FW) 
) 
{DEFUN READP { / Z) ; считывание правил из файла EKSPERTI. PRA 
(SETQ BAZA '(}) 
(WHILE (МОТ (ЕО (SETQ Z (READ (READL FP))) NIL)) 
(SETQ BAZA (CONS Z BAZA} )) 
(SETQ BAZA (REVERSE BAZA) ) 
] 
(DEFUN PERMN (X Y) ; функция пересечения множеств X n Y 
(COND {({(NULL X) NIL) 
( (MEMBER {CAR X) Y) (CONS (CAR X) (PERMN (CDR X) Y))) 
(T (PERMN (CDR X) У) }) 
) 
(DEFUN PODMNOJ (PODMN MNOJ) 
(EQUAL PODMN (РЕВММ PODMN MNOJ)) 
) 
(DEFUN EKSPERT (BAZA) ; функция поиска вывода 
(PRINC "\п\п КОММЕНТАРИЙ: ") 
(PRINC "\п Результаты работы экспертной системы выводятся ") 
(PRINC "\п на экран и в файл EKSPERT.DOC" ) 
(PRINC "\п\п Начальные факты в файле ЕКЗРЕКТ.РАМ: " FW) 
(PRINC "\п\п Начальные факты в файле ЕКЗРЕКТ.ПАМ: " ) 
(ВЕАБЕ} ; считывание из файла данных 
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; начальных фактов 
(READP ; считывание из файла 
; знаний правил 


(PRINC "\an РЕЗУЛЬТАТЫ: °) 
(FCXEACH PR BAZA ; цикл просмотра правила в базе знаний 
(SETQ USL (CDR (REVERSE (CDR PR)))) —; выделение условий 
(COND ((РООММОУ USL FAKTI) ; если условие выполнено - поиск 
ЕТО V (LAST PR) ; выделение вывода (результата) 
N? (CAR РЗ)) ; определение номера правила 
(FRINC (STRCAT "\п Согласно правилу " (ТТОА МР) , 
"Caza знаний EKSPERT.PRA ответ: ") FW) 
(Р2РЕТМС (CAR V) FW) ; распечатка вывода в файл 
; результатов 
(2>ЕЕ№С (STRCAT "\п Согласно правилу " (ТТОА NP) " из" 
"базы знании ЕКОРЕВТ.РКА ответ: \п" ) ) 
(PRINC (СЛАВУ) ) ; распечатка вывода на экран 
(SETQ FAKTI (CONS У FAKTI })) ; ввод вывода в список фактов 
‘г РАКТТ)) 


) (РЕТМС "N\A КОНЕЦ! "} {PRINI)} 


TA ое T — < 7A 
ей 0 к. | аа = 
-r a a g Cn 


ICLCSE PD) 


(CLOSE FP 


Noi a = m å 


(CLOSEZ FA) 


Результаты расчета представлены в окне консоли Visual LISP (рис. 5.19). 


и) М5 051 LISP Console - 


КОММЕНТЯРИЙ : 
Результаты работы экспертной системы выводятся 
на экран и в añn EKSPERT .00С 


Начапьные Факты в хайпе EKSPERT.DAN : 
((СПЯБО ВРЯЩЯЕТСЯ КОПЕН BAN) (СПЯБЯЯ ИСКРЯ НЯ СВЕЧЯХ)) 


РЕЗЧУЧПЬТЯТЫ: 
Согпасно правипу 5 иэ базы энаний EKSPERT.PRA ответ: 
ППОХОЙ ЯККУМУПЯТОР 
Согпасно превипу 6 из базы энаний ЕК$ЗРЕАТ.РАЯ ответ: 
МАЯПЫЙ ТОК В ПЕРВИЧНОЙ КЗ 
Согпасно правипу 7 из баэы знаний EKSPERT.PRA ответ: 
ППОХОЙ ЯККУМУПЯТОР 
КОНЕЦ # 
14 formas loaded from #<editor ”C:/ALISP/EKSPERT.LSP"> 


r a г a aa aa a > ^^. a R n Taa > ? 
f h t А 
— 


Рис. 5.19. Результат выполнения функции (EKSPERT...) 
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6.1. Расчет и представление динамических 
параметров 


6.1.1. Постановка задачи 


Задан некоторый агрегат, состоящий из двух звеньев: ведущего звена (кри- 
вошип) и ведомого звена (поступательно движущаяся кулиса). Во время 
рабочего хода ведомое звено реализует постоянное усилие Р. Вес ведомого 
звена С. Весом остальных звеньев агрегата и силами трения пренебрегаем. 
Момент инерции вращающихся частей ведущего звена равен.) ‚. Для задан- 
ных параметров агрегата (рис. 6.1) — P = 100 H, С = 10 H, J, = 0,05 кгмг, 
длина звена (кривошипа) L = 0,1 м - необходимо рассчитать и предста- 
вить в графическом виде основные характеристики агрегата: 


e| _ 


Рис. 6.1. Схема силового агрегата 


° приведенный момент от движущих сил М; 

° приведенный момент от сил сопротивления М. ; 

° приведенный момент инерции J; 

e угловую скорость ведущего звена ©; 

° полную кинетическую энергию агрегата Е. 

Необходимо определить основные характеристики агрегата для режима 
разгона, установившегося движения и торможения. При этом следует учи- 
тывать, что агрегат выходит на режим установившегося режима через два 
оборота (М = 2). Все основные характеристики необходимо определить 
в функции угла поворота ведущего звена — ф и представить их на экране 
дисплея графически во время работы агрегата. Предварительно предстоит 


разработать соответствующие функции на AutoLISP. 
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6.1.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Искомые основные характеристики силового агрегата вначале определим 
для режима разгона. 

Используя равенство мощностей на входе и выходе, вычислим приве- 
денный момент от сил сопротивления Мо; 

M, ©, = P Vo 

где Ve — линейная скорость ведомого звена. 

УГЛОВАЯ скорость ведущего звена определяется по формуле: 

в, =V, /L, 

где У — линейная скорость точки А ведущего звена, направленная по 
касательной к окружности О. 

Линейную скорость точки А можно разложить на две составляющие: по 
вертикали V „ и горизонтали V; 

Va - Va Sin i (180° — ф) = V, sin ф 

Следовательно, скорости точек А и С по горизонтали равны: 

Va -У.У. =У, Sin ф = o, Lsin o 

Используя это равенство, выражение для приведенного момента от сил 
сопротивления можно представить в следующем виде: 

М. ®, = Ро, Е sin ọ, M = РГ 5ш ф 

Используя равенство работы движущего момента А, и сил сопротивле- 
ния А, за один цикл, определим величину приведенного момента от дви- 
жущих сил M При этом будем учитывать действие сил сопротивлепия в 
течение первой половины оборота ведущего звена, когда действует полез- 
ное сопротивление движению p. 


A, = м. dọ; Ас =2РГ; þm, 4<=2РГ; M „2r=2PL 


где 2 т — расстояние перемещения ведомого звена за пол-оборота BEAY- 
щего звена. 

Следовательно, 

M, =РЕЬ/т 

Движущий момент мотора считается постоянным и действует во время 
разгона и установившегося движения. 

Исходя из равенства кинетических энергий, приведенный момент инер- 
ции J, к ведущему звену можно определить следующим образом: 

1/2 Ja ©? =1/2 J, ©? + 1/2 СУ: / By 

откуда}. =J, +G y? / (5, o2), но У =, С зп ọ, 

следовательно, J, = J, + G L? sint ọ i Su 
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Исходя из теоремы живых сил, определим значение угловой скорости 


ведущего звена: 
1/2], 07 =A, 


2РТ 


у 


Ф 
но А. = М. dọ = ‚откуда O; = 
0 in 
Рассмотрим теперь установившийся режим работы агрегата. Во время 
движения агрегата в первой половине оборота ведущего звена при изме- 
нении угла ф от 0 до р! действуют приведенный движущий момент M, 
и приведенный момент от сил сопротивления М... Резульгирующий при- 
веденный момент M, в первой половине оборота: звена 1 будет равен: 
М =Ma - Mo =PL/n- PLsnoọo=PL(1/rn- sino). 
За это же время полная кинетическая энергия агрегата (в первой noo- 
вине оборота ведущего звена) составит: 


Е-А -А. + С, 
м. do- [M do+c= [Eao -f 

E= |Ma de- М. 4Ф+С= |—doọ- |PLsinodọ 
0 а“ од 0 


после интегрирования 

Е = РГ (ф/л + со$ Ф) + С, 

где С — постоянная, которая определяется по начальным данным при 
ф=биЕ-=Е. 

С = E, -P L, так как cos 0 = 1, 

при этом Е, — кинетическая энергия, накопленная за время разгона. 

Следовательно, кинетическая энергия агрегата составит: 

Е = РЕ (ф/т+ с0$ ф) +Е -PL 

Накопленная кинетическая энергия за время разгона: 


E= М. > [= PL 


И кинетическую энергию агрегата можно рассчитать по формуле: 

Е =РГ, (ф/т + с0$ ф -— 1+2М) 

Полная кинетическая энергия агрегата во вторую половину оборота ве- 
дущего звена (от ф = T A0 Ọ = 2 дл): 

Е-А -A + Е =РГф/ж-2РЕ+2РЕЬЕМ= РЕ (ф/т- 2 + 2N) 

Bo второй половине оборота ведущего звена холостой ход и Р = 0, сле- 
довательно, работа сил сопротивления А, = — 2 P Г. останется неизменной. 

Исходя из теоремы живых сил ( J, © х2 2/2=Е), угловую скорость веду- 
щего звена W, при установившемся движении агрегата можно определить 


по формуле: 


dọ =2РЕМ 
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Л. 


Далее рассмотрим режим остановки (торможения) агрегата. Определим 
приведенный момент сопротивления M , который действует в первой по- 
ловине оборота ведущего звена (от ф = 0 до p =T): 

М. 7 P Lsin ọ (0 <= ọ <= т), ( 2n <= ọ <= 37), .. 

Значение кинетической энергии агрегата за первую половину оборота 
ведущего звена (от ф = 0 доф = р!) составит: 

Е =E- =2РЕМ- РЕ (1 - с0$ ф) = P L (2N + cos ọ — 1) 

За вторую половину оборота ведущего звена кинетическая энергия бу- 
дет постоянна и равна кинетической энергии при ф = pi: 

Е, = РГ. (2М + созд- 1) =РЕ(2М-1-1) =2РЕ(М-1) 

При дальнейшем вращении ведущего звена от ф = 2r до 3n кинетичес- 
кую энергию можно вычислить по формуле: 

Е. = E, — PL (1 - cos ф) = 2PL (N - 1) - PL (1 - cos Ф) = PL (2N - 3 + cos ọ) 

Изменение угловой скорости ведущего звена при торможении H оста- 
новке составит: 


2E 
6 = т. 
in 


6.1.3. Разработка последовательности действий 
и комплекса функций расчета и параметрического 
изображения агрегата и всех его характеристик 


Порядок расчета и графического представления результатов включаст сле- 
дующие основные этапы: 

e определение вспомогательных данных и начальных значений. Введем 
начальный угол поворота ведущего звена ф = 0 и начальное перемеще- 
ние на графике изображения той или иной характеристики Z = 0. Раз- 
мер графика по оси X принят равным 4L. Далее введем значение уско- 
рения свободного падения g, = 9.81 и определим приращение угла 
поворота ведущего звена (принято равным 30°). Исходя из заданного 
числа оборотов Т ведущего звена для разгона, определяем число дис- 
кретных положений ведущего звена — NZ, для которых проводится 
расчет искомых параметров и выдается их изображение. Затем опре- 
делим базовые точки для построения графиков; 
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представление названий и базовых линий для искомых параметров. Ба- 
зовые точки для базовых линий определяются со смещением относи- 
тельно друг друга на расстояние 0.6 L, а начальные точки для текста — 
со смещением относительно линий на расстояние 0.5 [. над линией; 
создание графического изображения агрегата, расчет и представление 
искомых параметров. Для создания графического изображения агре- 
гата предварительно определим угол поворота ведущего звена, рассто- 
яния ОВ, ВА, координаты точек T., Ty T, Г» T, которые функцио- 
нально зависят от угла ф. После создания графического изображения 
агрегата с помощью полилинии его необходимо запомнить, с тем что- 
бы удалить после выполнения расчетов искомых параметров. Затем 
предстоит сформировать новое положение агрегата, рассчитать новые 
значения искомых параметров, построить их изображение ит. д. Рас- 
чет параметров осуществляется в цикле. Сначала рассчитывается при- 
веденный момент от движущих сил М, затем — работа от движущих 
сил А.. приведенный момент инерции J, и угловая скорость ведущего 
звена. В конце периода разгона определяются и изображаются на гра- 
фиках угловые значения искомых величин. 


Разработка комплекса функции AutoLISP: 


_— 


определение вспомогательных данных и начальных значений. Эта 
часть программы может быть записана в следующем виде: 


SETOJ 209.01 `; ускорение свободного падения 
тт ; номер исследуемого параметра 
DFI (/ PI 6) ; приращение угла поворота 
ЕТ (- 0 БЕТ] | ; угол поворота ведущего звена 
№ (/ (* N2 PI) DFI) ; число значений исследуемого параметра 
NZ (+1 (FIX NZ)) 

DZ (/ (* 4 L) NZ) ; смещение по горизонтали в цикле 
Z (= 0 DZ) ; число смещений по горизонтали 
ВТС (POLAR ВТ PI L) ; начальная точка оси графика 

J 0 

201 (POLAR BT 0 (* 4 L)) 

ETG (POLAR BTG (* 1.5 PI) L) 

BTGR BTG 

МОР (/ (* P L) РТ) ; приведенный момент движущих сил 
Е 10 ; кинетическая энергия 


PIA (* PI 0-3) 
PIC (* PI 1.5) 
LK {*:2-3 L) 
LG (* 2 L) 
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Последние четыре строки определяют величину угла перемещения 
вверх (РТА), вниз (PIC), длину ведомого звена — LK и смещение базовой 
линии вниз — LG. Рассчитанные один раз, они экономят много машинного 
времени и упрощают написание программы; 

e представление названий и создание графического изображения базо- 

вых линий для искомых параметров: | 


(ВЕРЕАТ 4 
(IF {= I 3} (SETQ ВТС ВС1)) 
(SETQ ВТС (POLAR ВТС РТС Гб) 
BTT (POLAR ВТС РТС (* 0.2 LG))) 

(COND 
((= I 1) (SETQ ТТ "Кинетическая энергия arperarTa")) 
((= I 2) (SETQ ТТ "Приведенный момент на ведущем 3BeHe")) 
((= I 3) (SETQ ТТ "Приведенный момент инерции JlP"}) 
(({(= I4) (SETQ ТТ "Угловая скорость ведущего звена М") ) 

) 

(COMMAND "TEXT" BTT "0" TT) 

(COMMAND "PLINE" BTG "М" 0.5 0.5 (POLAR BTG 0 (* 4 L)) "") 

(SETQ I (+ I 1)}})) ; 


° создание графического изображения агрегата, расчет и представление 
искомых параметров. Поскольку изображение агрегата и все искомые 
параметры зависят от угла поворота ведущего звена, эту часть про- 
граммы необходимо выполнять в цикле. | 


(REPEAT (+ 1 №) 
(SETQ Z (+ Z DZ) 
J (+J1) 
FI (+ FI DFI) 
ОВ (* {COS FI) L) 
AB (* (SIN FI) L) 
ТВ (РОШАВ BT. 0 ОВ) 
ТА (POLAR ТВ РТА АВ) 
T3 (POLAR TB 0 LG) 
T4 (POLAR T3 0 (*0.51))) 
T31 (POLAR T3 РТА (* L 0.4)) 
T32 (POLAR ТЗ PIC (* L 0.4)) 
T41 (POLAR T4 PIA (* L 0.4)) 
T42 (POLAR T4 PIC (* L 0.4})) 
(COMMAND "PLINE" ВТ "М" (* L 0.05) "" TA T3 T31 T41 T42 
T32 T3 15) 
(SETQ L1 (ЕМТЬАСТ) I 1 BTG BTGR) 
(COMMAND "CIRCLE" TA (* L 0.1)) 
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(SETQ L2 (ЕМТЬАЯТ)) 
(REPEAT 4 
(IF (= I 3) (SETQ BTG BG1)}) 
(IF (=R 1) 
(COND ((= I2) (SETQ $ МОР) 
((= I 1) (SETQ 5 (* MDP ЕТ)}) 
((= I3) (SETQ S (+ J1 (/ (*GLL (SIN FI) 
(SIN FI)) GU)} ЛР S§}) 
((= I 4) (SETQ 5 (SQRT (/ (* 2 PL FI) (* J1P PI)))))) 
} 
(SETQ ВТС (POLAR ВТС РТС ГС) ) 
(ТЕ (/= I 4} (SETQ S (/ S 100)) (SETQ S (* S 30))) 
(SETQ 5T1 (POLAR BTG 0 Z) 
BT2 (POLAR BT1 РТА 5) 
I (+11)) 
(COMMAND "PLINE" BT1 "W" 0.5 0.5 ВТ2 "") 
(IF (AND (=J (+ 1 NZ)) (/= I 5)) (COMMAND "TEXT" BT2 "" 
(RTOS (* S 100) 22 ))) 
(ТЕ (AND {=J (+ 1 NZ)} (= I5)) (COMMAND "TEXT" BT2 "" 
(RTOS (/ S 30) 22))) 
(ENTDEL L3) (ENTDEL L2) (ENTDEL L1) 
( 1) (ENTDEL L3) (ENTDEL L2) (ENTDEL L1) 


Для того чтобы числовые значения искомых параметров представить 
в виде графика для любого дискретного положения ведущего звена, необ- 
ходимо использовать счетчик ] и ввести начальное значение J в первую 
функцию (SETQ...) и группу функций после последней функции 
(СОММАМО...), например: 

(ТЕ (=J 1) (COMMAND "TEXT" ВТ2 "" (RTOS (* $ 100) 22)}) 


6.1.4. Функция расчета и параметрического 
изображения агрегата и всех его характеристик 


. хххХхХхХххккхккххкхххххкхххкхкхххкхкххкккхххккккккккхххххккххххкххххххкххххх 
t 


ZSR LG P J1 NR) - Функция создания параметрического изображения 
; агрегата, расчета и изображения значений его динамических характеристик 
гри различных режимах работы /разгон, установившийся режим работы, 
; торможение/ 
; Аргументы функции: 
L - длина ведущего звена агрегата, мм 
; С - масса ведомого звена агрегата, т 
Р - усилие, воздействующее на ведомое звено, Н 
: Jl- момент инерции ведущего звена, кгмм кв. 
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. N - число оборотов ведущего звена в заданном режиме i 


ê 


. R - режим: 1 - разгон; 2 - установившийся режим; 3 - торможение 


f 


‚.Выводимые графические изображения: 


s 


; приведенный момент на ведущем звене 
; кинетическая энергия агрегата Е 
; приведенный момент инерции JP 


. угловая скорость ведущего звена W 


t 
. ЖХХХХХХККХХХХКККХКХККХХХКХХХХХКХКХХККХХКККХхКХКХККХХКККККККЖХХХКХКХХКХ 
ê 


(DEFUN AGR (L G P J1NR) 

(SETQ BT (LIST (* 2 L) (*7L)) 
| МХУ (LIST {* 11 L) ({(* 8 L))) 
(COMMAND "LIMITS" "0,0" MXY "ZOOM" "A") 
(SETVAR "CMDECHO" 0) (SETVAR "ВЬТРМООЕ" 0) 
(COMMAND "STYLE" "" "" (* 0.15 Г) "1" "" "т mn ии) 
(COMMAND "CIRCLE" ВТ L 

"CIRCLE" BT (* L 0.1)) 

(SETO L3 (ENTLAST)) ; запоминание последнего построенного примитива 


(SETQ 609.81 I1 

DFI (/ PI 6) FI (- 0 DFI) 

NZ (/ (* N2 PI) DFI) NZ (+ 1 (FIX NZ)) 

DZ (/ (* 4 L) №) 7 (- 0 DZ) 

BTG (POLAR BT PI L) J0 

BG1 (POLAR BT 0 (* 4.5 L)) PIC (* PI 1.5) 

. BTG (POLAR ВТС PIC L) LG (* 2 L) 

BTGR BTG PIA (* PI 0.5) 

LK (* 2.5 L) MDP (/ (* P L) PI) 

BG2 (POLAR BG1 РТА (*0.8 L)) Е 10) 
(SETQ T3 (POLAR ВТ 0 {* 1.7 L)) T4 (POLAR ВТО (* 4.1 L)) 


T31 (POLAR ТЗ PIA (* 0.5 L)) T32 (POLAR ТЗ PIC (* 0.5 L)) 
T41 (POLAR T4 РТА (* 0.5 L)) T42 (POLAR T4 PIC {(* 0.5 L)}) 
(COMMAND "PLINE" T31 "И" 1 1 T41 T42 732 "") 
(COND ((= R 1) (SETQ ТТТ "Режим разгона агрегата") } 
((= R2) {5ЕТО ТТТ "Установившийся режим работы") } 
((= R3) (SETQ ТТТ "Режим торможения агрегата") }} 
(SETQ TTL (5ТЕСАТ "Длина кривошипа L=" (RTOS L 2 1) " Мм") 
TTG (STRCAT "Масса поршня G=" (RTOS G 2 1) "Н") 
TTP (STRCAT "Усилие на поршне P=" (RTOS P 2 1) " H°”) 
TTJ (STRCAT "Момент инерции поршня Jl=" (RTOS 9121) 
" KT TMM KB. ") 
TTN (STRCAT "Число оборотов кривошипа, N=" (RTOS N 2 1})) 
(COMMAND "TEXT" BG2 "0" TTT 
"TEXT" (POLAR BG2 PIC (* 0.4 L)) "0" TTL 
"TEXT" (POLAR BG2 РТС (* 0.7 L)) "0" TTG 
"TEXT" {POLAR BG2 PIC (* 1.0 L)) "0" TTP 


250 Создание подсистем для выполнения инженерных расчетов 


“ТЕХТ" (POLAR БС2 РТС (* 1.3 L)) "0" TTJ 
"TEXT" (POLAR ВС2 РТС (* 1.7 L)) "0" TTN) 
(REPEAT 4 
(IF (= I 3) (SETQ BTG (POLAR BG1 PIC Ь))) 
(SETQ BTG (POLAR BTG PIC LG) 
BTT (POLAR BTG РТС (* 0.8 L))) 
(COND 
(({(= I 1) (SETQ TT "Кинетическая энергия агрегата"}) 
((= I 2) (SETQ ТТ "Приведенный момент на ведущем 3BeHe")) 
((= I 3) (SETQ ТТ "Приведенный момент инерции J1P")) 
((= I 4) (SETQ ТТ "Угловая скорость ведущего звена И"})) 
(ССММАХО "ТЕХТ" BTT "0" TT) 
(COMMAND "РЕТМЕ" ВТС "W" 0.5 0.5 (POLAR BTG 0 (*41)) "") 


| 


т 
(REPEAT (+ 1 NZ) 
(SETQ Z (+7107) 
1 


FI (+ FI DFI) 
OB (* (COS FI) L) 
AB (* (SIN FI) L) 
TB (POLAR BT 0 OB) 
TA (POLAR TB PIA AB) 
T3 (POLAR TB 0 LK) 
T4 (POLAR T3 0 (* 0.5 L)) 
T31 (POLAR ТЗ РТА (* L0.4)) 
T32 (POLAR ТЗ PIC (* L 0.4)) 
T41 (POLAR T4 PIA (* L 0.4)) 
T42 (POLAR T4 PIC (*10.4))) 
(COMMAND "PLINE" ВТ "М" (* L 0.05) "" ТА ТЗ T31 T41 T42 
т. =) 
(SETQ 11 (ENTLAST) I 1 ВТС ВТСК} 
(COMMAND "CIRCLE" TA (* L 0.1)) 
(SETQ L2 (ENTLAST)) 
(REPEAT 4 
(ТЕ (= I 3) (SETQ BTG (POLAR BG1 PIC L})) 
(IF (=R 1) 
(COND 
((= I2) (SETQ S MDP)) 
({= I 1) (SETQ S (* MDP ЕТ)}) 
((= I3) (SETQ $ (+ J1 (/ (*GL L (SIN FI) (SIN FI})) GU)) J1P §)) 
((= I4) (SETQ S (SQRT (/ (* 2 PLFI) (* ЛРРТ)})))}) 
(IF (= R2) 
(PROGN 
(IF (> FI (* 2 PI)) (SETQ FI (- FI (* 2 PI)))) 
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(COND 
({= I2) (IF (AND (>= ЕГО) (<= FI PI)) 
(SETQ МР (* (* PL) (- (/ 1 PI) (SIN FI)))) 
(SETQ МР (/ {(* P L) PI))) 
(SETQ S MP)) 
({(=I 1) (IF (AND (>= ЕТО) {<= FI PI)) 
(SETQ E (* PL (+ (/ FI PI) (COS ЕТ) -1 (* 2 N)))) 
(SETQ E (* PL (+ {(/ FI PI) -2 (* 2 N))))) 
(SETQ S E)) 
({= I 3) (SETQ J1P {+91 (/ (* GLL (SIN FI) 
(SIN FI)) GU))) (SETQ S 41Р)) 
({(= I4) (SETQ W (SQRT (/ {(* 2 E) J1P)) S W))))) 
(ТЕ {AND (= R3) (/=E0)) 
(COND | | 
{((= I 2) (IF (OR (<= FI PI) (AND (>= FI (*2РГ)} (<= ЕТ (* ЗРТ)))}) 
(SETQ MCP (- 0 (* PL (SIN FI))} $ MCP) 
(SETQ MCP 0 $ MCP))) 
({=I 1) (IÈ (<= FI PI) 
(SETQE (* PL (+ (* 2 N) (COS FI) -1)} S E)) 
(IF (AND (>= FI PI) (<= FI (* 2 PI))) 
(SETQE (*2 PL (-N1)) SE)) 
(IF (AND (>= FI (* 2 PI)) (<= FI (*ЗРТ))) 
(SETQE (* PL (+ (* 2N) -3 (COS FI))) $Е))) 
( (= I3) (SETQ J1P (+ J1 (/ (*GLL (SIN FI) 
(SIN FI)) GU)) S 91Р}) 
((= I4) (SETQ W (SQRT (/ (* 2 E) J1P)) S W)))) 
(SETQ BTG (POLAR BTG PIC LG)) 
(IF (/= I4) (SETQS (/ S 100)) (SETQ S (* S 30))) 
(SETQ  BT1 (POLAR BTG 0 7) 
BT2 (POLAR BT1 РТА $5) 
I (+ I1)) 
(COMMAND "PLINE" ВТ1 "W" 0.5 0.5 BT2 °") 
(IF (AND (=J (+ 1 NZ)) (/= I 5)) (COMMAND "TEXT" BT2 "" 
(RTOS (* S 100) 22 ))) 
(IF (AND (=J (+ 1 NZ)) {= I 5)) (COMMAND "TEXT" BT2 "" 
(RTOS (/ S 30) 22 }))) 
) (ENTDEL L3) (ENTDEL L2) (ENTDEL L1) 
) (PRIN1) (ENTDEL 13) (ENTDEL L2) (ENTDEL L1) 
) 


Функцию (AGR...) поместим в файл, например, AGR.LSP 
Для исследования режима разгона агрегата необходимо ввести в функ- 
цию соответствующие исходные данные, например: 


(АСВ 100.0 10.0 50.0 5000.0 2.01} ; расчет режима разгона 
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Результат выполнения функции (АСК...) в режиме разгона агрегата 
представлен на рис. 6.2. 

Для исследования установившегося режима работы агрегата необходи- 
мо ввести соответствующие исходные данные в функцию, например: 


(АСВ 100.0 10.0 50.0 5000.0 2.0 2} ; расчет установившегося режима 

Результат выполнения функции (АСК...) в установившемся режиме 
представлен на рис. 6.3. 

Для исследования режима торможения агрегата необходимо ввести со- 
ответствующие исходные данные в функцию, например: 

(3С5 100.0 10.0 50.0 5000.0 2.0 3) ; расчет режима торможения 


Результат выполнения функции (АСК...) в режиме торможения пред- 
ставлен на рис. 6.4. 


6.2. Расчет и создание параметрического 
изображения нагрузок в фермах 


Использование системы AutoCAD и языка AutoLISP для расчета и созда- 
ния параметрического изображения нагрузок, а точнее, расчета и построе- 
ния линий влияния для плоских стержневых конструкций, рассмотрим на 
примере стрелы башенного крана (подвесного моста, консоли и т. д.). 


Режим разгона агрегата 


Длина кривошипа 1=100 ММ 

Масса поршня G=10 H 

Усилие на поршне Р=50 Н 

Момент инерции поршня /1=5000 КГММ КВ. 


20833.33 Число оборотов кривошипа, М=2 


7548.42 
ИИ 
Кинетическая энергия агрегата Приведенный момент инерции JIP 
2.35 
| 1591.55 eiil 
IJJ В О О О О В О В О В В В В В О В 
Приведенный момент на ведущем звене Угловая скорость ведущего звена W 


Рис. 6.2. Режим разгона агрегата 


- Создание параметрического изображения нагрузок в фермах 253 


Установившийся режим работы 


Длина кривошипа 1=100 ММ 

Масса поршня С=10 H 

Усилие на поршне Р=50 H 

Момент инерции поршня /1=5000 КГММ КВ. 


20163.46 Число оборотов кривошипа, N=2 


7548.42 
Кинетическая энергия агрегата Приведенный момент инерции /1Р 
2.31 
W зи 908.45 
Приведенный момент на ведущем звене Угловая скорость ведущего звена W 


Рис. 6.3. Установившийся режим работы агрегата 


Режим торможения агрегата 


Длина кривошипа 1=100 ММ 

Масса поршня С=10 H 

Усилие на поршне Р=50 Н 

Момент инерции поршня /1=5000 КГММ КВ. 


Число оборотов кривошипа, М=2 


Кинетическая энергия агрегата Приведенный момент инерции JIP 


Приведенный момент на ведущем звене Угловая скорость ведущего звена W 


Рис. 6.4. Режим торможения агрегата 
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6.2.1. Постановка задачи 


Разработать алгоритм и программу (функцию) автоматизации расчета 
H создания параметрического изображения линий влияния для стержней 
заданной секции стрелы, представленной на рис. 6.5. 


L 


Рис. 6.5. Вид фронтальной проекции стрелы 


В качестве языка программирования использовать AutoLISP. Основны- 
ми исходными данными для решения задачи являются: базовая точка 
крепления стрелы — BTF; длина стрелы - L; высота стрелы - H; число 
секций в стреле — N; номер секции подвеса стрелы — NC; номер узла, KO- 
торый предшествует расчетной секции, — N1; число дискретных переме- 
щений единичной силы вдоль нижнего пояса — NZ; схема подвески стре- 
лы (см. рис. 6.6). 


Pg | | Tk 


АЗ | T2 NC*LS 


Рис. 6.6. Схема подвески стрелы 
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6.2.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Исходя из конструкции стрелы (рис. 6.5), в расчетной секции можно выде- 
лить следующие виды стержней: стержень верхнего пояса стрелы, обозначим 
его S; стержень нижнего пояса стрелы — S; раскос — 5.; стойку - 5,. 

Усилия в стержнях стрелы зависят от схемы подвески стрелы, которая 
представлена на рис. 6.6. Определяющими параметрами здесь являются 
координаты точек Т4 и ТК. | 

Для определения местоположения точки T4 достаточно знать коорди- 
наты базовой точки BTF и относительные смещения AS и BS искомой TOY- 
ки T4 относительно базовой точки BTE Местоположение необходимых 
точек для проведения расчета и создания параметрического изображения 
линий влияния определим с помощью полярной системы координат. 

Чтобы провести необходимые расчеты, необходимо определить значе- 
ния реакций в опоре BTF и усилия, действующие на стрелу в точке креп- 
ления каната ТК. 

Для расчета последних возьмем сумму моментов действующих сил от- 
носительно базовой точки: 

P*Z -Р.*Н - P,*NC*LS = 0 

Используя подобие треугольников TK А Ви TK D ТА, определим P, / E 

Py; BS-H BS-H 


—=— =A. P, =P. —“ „р * 

Ps AS+NC*LS Pv =Po АМС e A 

P*Z-P,*H-P,—2S-H  nce*rs=0; p -— EZ 
AS+NC*LS H+A*NC*LS 


6.2.3. Разработка последовательности действий для 
расчета и параметрического изображения линий 
ВЛИЯНИЯ 


Расчет и создание параметрического изображения линий влияния вклю- 
чает следующие основные этапы: 

* определение местоположения точек крепления стрелы, каната и графи- 
ческое изображение их на чертеже. Местоположение точек T1, T2, T4, 
ТК можно найти, используя полярную систему координат. Местопо- 
ложение точек T1 и T2 можно определить путем перемещении базовой 
точки BTF под углом PI и 1,5 PI соответственно на расстояние 03 H. 
Местоположение точки Т4 определяется при перемещении от базовой 
точки BTF под углом PI на расстояние AS, а затем от этой же точки 
под углом РИ? на расстояние BS. Местоположение точки ТК можно 
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установить путем перемещении точки BTF под углом 0 на расстояние 
NC*LS, а затем под углом PI/2 на расстояние H. Для создания графи- 
ческого изображения каната следует соединить точки Т4 и ТК; 

° определение точек расчетной секции (рис. 6.7). Местоположение точ- 
ки Ti расчетной секции определяется путем перемещения базовой 
точки на расстояние №1*Т.5 под углом 0. Местоположение остальных 
точек (T2, T3, T4) можно определить по рис. 6.7, если перемещаться 
в направлениях, указанных стрелками; 

e подготовка к расчету. Введем переменную Í, определяющую стержень 
сечения, для которого строится линия влияния: 
если I = 1, стержень верхнего пояса — S; 
если [ = 2, стержень нижнего пояса — S; 
если [ = 3, раскос - S; 
если I = 4, стойка - S, 

Определим шаг перемещения единичной силы DZ = L / МА, исходя из 
числа перемещений единичной силы — NZ; 

* выделение на чертеже расчетного стержня в процессе построения Nul- 
нии влияния и определение основных составляющих действующих сил. 
Построим отрезок — основание линии влияния, на котором будет стро- 
иться линия влияния. Толстой линией выделим стержень в расчетной 
секции, для которого проводится расчет. Изобразим единичную силу 
в виде стрелки (она дискретно перемещается по нижнему поясу стрелы). 
Определим реакции в точке опоры стрелы и усилия в точке ее подвеса: 

р-р. ВР. Pe 


Рис. 6.7. Схемы местоположения точек расчетной секции: а] - расположенной до точки 
крепления канота; 6) - расположенной после точки крепления каната 
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р — P*Z B Z 
° H+A*NC*LS H+A*NC*LS 

расчет усилий в стержнях секции. Для расчета усилий в стержнях стре- 
лы используем метод Риттера, согласно которому ферма рассекается 
на две части таким образом, чтобы в сечении было не более трех стерж- 
ней с неизвестными усилиями. Отбрасываем отсеченную часть фермы 
и оставшуюся ее часть рассматриваем в равновесии под действием 
приложенных к ней внешних сил и усилий, заменяющих действие рас- 
сеченных стержней. Для этой части фермы получим три уравнения 
равновесия, в которые войдут три искомых усилия. 

Начнем с определения усилия в стержне верхнего пояса S. Возьмем 
сумму моментов всех сил относительно узла С, в котором пересекаются 
два других стержня (рис. 6.8). 

Проведем сечение, пересекающее три стержня, и рассмотрим равнове- 
сие левой части фермы под действием сил: реакций опоры P, и P, в узле 
О, единичной силы Р (для схемы, представленной на рис. 6.8, а) и действу- 
ющей на расстоянии Z от опоры О. При этом все усилия в стержне nanpa- 
вим от узлов, то есть таким образом, как если бы они были растянуты. При 
этом возможны два случая: расчетная секция расположена до точки под- 
веса стрелы и после этой точки (рис. 6.6). 

Каждый из этих случаев, в зависимости от места расположения единич- 
ной силы, имеет два варианта (рис. 6.8, а, b). 

Единичная сила действует перед узлом С. Z < N1*LS. В таком случае 
сумма моментов относительно точки С составит: 


В/ 


Рис. 6.8. Схемы расчета усилия в стержне $, для секций, 
расположенных до точки подвеса стрелы 


9 — 1278 
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У М = 0, 

SH - Р*(М№1*Т$ - Z) + P,*Ni*LS = 0, 

откуда S, = (Р*(№1*Т$ - Z) — P *N1*LS)/H 

Если ния сила находится после узла С, то есть Z > №1*Г5, тогда 
сумма моментов относительно точки С составит: 

хМ = 0, 

SH + P *Ni*LS = 0, 

откуда S, = (- P*N1i*LS)/H 

Рассмотрим второй случай, когда расчетная секция расположена после 
точки подвеса стрелы (рис. 6.9). 

Когда единичная сила действует перед узлом О, то есть Z < (№1 + 1)*15 
сумма моментов всех сил относительно точки D составит È М = 0. Следо-. 
вательно, S, = 0. 

Если единичная сила находится после узла D, то есть Z > (Ni + 1)15. 

S H = Р*(7 - (Ni + 1)*15), 

следовательно, $, = (P*(Z — (М1 + 1)*15))/Н 

Чтобы определить усилия в стержнях нижнего пояса 5, возьмем сумму 
моментов всех сил относительно узла E, в котором пересекаются два Apy- 
гих стержня (рис. 6.10). 

Когда расчетная секция стрелы расположена до точки подвеса стрелы, 
возможны два варианта: 
а) единичная сила находится до узла ÈE и сумма моментов относительно 
точки Е составит: 
X? *H + P*((N1 + 1)*1$ - 2) - P,*(N1 + 1i)*LS = 0, 
= [P *(N1 + 1)*Т$ - Р*((М1 + 1)*1$ - 2)]/Н 
м единичная сила находится после узла Е. и сумма моментов относитель- 
но точки Ё составит: 


N1 N1 
S1 


\ \ 
N 


N 


(N1+1)'LS D N (N1+1}'LS N 
А/ B/ 


Рис. 6.9. Схемы расчета усилия в стержне $, для секций, 
расположенных после точки подвеса стрелы 
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N1 


Py ИГ / 


Z C 
(N1+1}LS (№1+1)1$ 


А/ 


Рис. 6.10. Схемы расчета усилия в стержне $, для секций, расположенных до точки подвеса 


SH - Р‚/*(М1 + 1)*LS = 0, S, = P,*(N1 + 1)*LS/H 
В том случае, когда расчетная секция расположена после точки подвеса 
стрелы (рис. 6.11), возможны два варианта: 
а) единичная сила находится до узла М1 и сумма моментов относительно 
этого узла составит: 
ХМ =0, SH = 0, 
следовательно, S, = 0, т. к. H /= 0 
6) единичная сила находится после узла М1 и сумма моментов составит: 
> М = 0. $,*Н + P*(Z - N1*LS) = 0, 
следовательно, S, = - P*(Z - Ni*LS)/H 
Рассчитаем усилия B раскосе S, секций, расположенных до точки подве- 
са стрелы (рис. 6.12). 
Если два из трех стержней сечения параллельны, то одна из точек Ритте- 
ра удаляется в бесконечность. Для определения усилия в непараллельном 


Рис. 6.11. Схемы расчета усилия в стержне $, для секций, 
расположенных после точки подвеса 


0 


N ` 
. - -- >= = ть ыы 
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Рис. 6.12. Схемы расчета усилий в раскосе $. для секций, расположенных 
перед точкои подвеса стрелы 
стержне вместо уравнения моментов можно взять сумму проекций всех сил 
в направлении, перпендикулярном параллельным стержням. В нашей зада- 
че стержни S, и S, параллельны. При этом возможны два варианта: 
а) единичная сила находится до рассматриваемого раскоса 7, < №115, 
тогда сумма проекций всех сил на ось У составит: 


P, -Р+$. т В =0; sinp И: И 
VH? +15? 
(Р- ЕЯ + LS? 


6) единичная сила и после рассматриваемого раскоса, тогда сум- 
ма проекций всех сил на ось У составит: 


JH? +15? 
Н 
Рассчитаем усилия в стержне 5. для секций, расположенных после точ- 
ки подвеса стрелы (рис. 6.13). 
Возможны два варианта: 
а) единичная сила находится до рассматриваемого раскоса (Z <= N1*LS), 
тогда сумма проекций всех сил на ось У составит: 
S, sin В = 0, S= 0 | 
6) единичная сила находится после рассматриваемого раскоса (Z > N1*LS), 
тогда сумма проекций всех сил на ось У составит: 


VH? +15? 


Н 


откуда S, = 


P; +$. зшВ =0; 5. =-Ру 


S, sin B = P, $; =P 


Создание параметрического изображения нагрузок в фермах 261 


Рис. 6.13. Схемы расчета усилия B раскосе S, для секций, расположенных 
после точки подвеса стрелы 


Рассчитаем усилия в стойке 5, для секций, расположенных до точки 
подвеса стрелы (рис. 6.14). 
Возможны два варианта: 
а) единичная сила находится до узла (Ni + 1), то есть 7<=(М№1+1)*1.5$. 
В таком случае сумма проекций всех сил составляет: 
РР 5—0, 
откуда >, = Р, -Р=Р. - 1 
6) единичная сила находится после точки (№1 + 1), то есть Z > (№1 + 
+1)*15. В этом случае сумма проекций всех сил составит: P,- $, = 0 
откуда >, = P, 
Рассчитаем усилия в стойке $, секций, расположенных после точки под- 
веса стрелы (рис. 6.15). 


? 


М1 N1+1 N1 N1+14 


(N1+1}'LS (№1+1)*1$ 
А/ 


Рис. 6.14. Схемы расчета усилия в стойке $ ‚ Для секций, 
расположенных до точки подвеса стрелы 
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N1 
к \ \ 
мау и (+145 | N 


Z 
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Рис. 6.15. Схемы определения усилия в стойке 5, в секциях, расположенных 
после точки подвеса стрелы 


При этом возможны два варианта: 
а) единичная сила находится до рассматриваемой стойки (Z < (Ni + 
+ 1)*Ъ5) и сумма проекций всех сил составляет на ось У: S, = 0; 
0) единичная сила находится после рассматриваемой стойки и тогда при 
сумме проекций всех сил на ось У: S, = P; 
® создание графического изображение усилия (линии влияния) в рассмат- 
риваемом стержне. Перпендикулярно отрезку — основанию линии 
влияния — откладываем усилие соответствующего стержня с учетом 
положения единичной силы на стреле. При этом знак усилия в стерж- 
не учитывается автоматически. Масштаб усилий в стержнях пропор- 
ционален 0.3 Н. Одновременно производится удаление графического 
изображения единичной силы на стреле до перехода ее в новую пози- 
цию, а также временное удаление стержня, для которого осуществля- 
ется расчет. Это необходимо, чтобы увидеть, для какого стержня стро- 
ится линия влияния. При перемещении единичной силы на новое 
место на стреле графическое изображение расчетного стержня восста- 
навливается. 


6.2.4. Разработка комплекса функций для расчета 
и параметрического изображения линий влияния 


Разработка комплекса функций AutoLISP включает следующие основ- 

ные этапы: 

° определение местоположения точек крепления стрелы, каната и создание 
на чертеже их графического изображения. Для разработки этой части 
программы используем функции (РОГАК...), а также команды "PLINE 
(построение линий) и "CIRCLE" (построение окружностей). Соответ- 
ствующая часть программы будет выглядеть следующим образом: 


Создание параметрического изображения нагрузок в фермах 263 
___—_————— од ъ.——„ъ—ъ—ъ—ъ— ма 


(SETQ T1 (POLAR BTF РТ (*0.3Н)) 

T2 (POLAR BTF (* PI 1.5) (* 0.3 H)) 
T3 (POLAR BTF PI AS) 

T4 (POLAR ТЗ (* PI 0.5) BS) 

ТК1 (POLAR BTF 0 (* NC LS})) 

TK (POLAR TK1 (* PI 0.5) H) 

) 

(COMMAND "PLINE" T1 "W" 1 1 BTF T2 "" 
"PLINE" T4 "W" 2 2 TK "" 
"CIRCLE" T1 3 "CIRCLE" T2 3 
"CIRCLE" T4 3 "CIRCLE” TK 3) 


e определение точек расчетной секции: 


(SETQ T1 (POLAR BTF 0: (* №1 LS)) 
T2 (POLAR T1 (* PI 0.5) H) 
T3 (POLAR T2 0 LS) 
T4 (POLAR T1 0 LS) 

) 


e подготовка к расчету: 


(SETO А (/ (- BSH) (+ АЗ (* NC 15) ) } 
№15 (* N1 LS) 
№115 (* (+ N1 1) LS) 
I1 
BT BTF 
DZ (/ (FLOAT L) NZ) 
SINB (/ H (SQRT (+ (* НН) (* LS LS)}) } 
) 
* выделение на чертеже в процессе построения линии влияния расчетно- 
го стержня и определение основных составляющих действующих сил. 
С помощью функции (REPEAT 4...) сформируем цикл для расчета стер- 
жней 5, Sp, S., S} и построим изображение основания линии влияния: 
(ВЕРЕАТ 4 
(SETQ ВТ (POLAR ВТ (* РТ 1..5) (*0.7Н))} 
ВТК (POLAR ВТ 0 L) 
20) 
(COMMAND "PLINE" ВТ "М" 1 1 ВТК "") 
(SETQ BTT (POLAR ВТ (* PI 0.5) (* 0.3 H))) 
Для выделения нужного стержня и перемещения единичной силы 
в этом же цикле сформируем цикл и запомним последние построенные 
примитивы с помощью функции (ЕМТЕГА$Т...): 
(REPEAT NZ 
(COND ({= I 1) (COMMAND "PLINE" T2 "W" 2 2 T3 "")) 
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((= I2) (COMMAND "PLINE" T1 "М" 2 2 T4 "")) 
((= I3) (IF (< №1 ©) = 
(COMMAND "PLINE" T1 "W" 2 2 T3 *") 
(COMMAND "PLINE" T2 "W" 2 2 T4 ""))) 
((= I4) (COMAND "PLINE" T3 "W" 2 2 T4 "")) 


(SETQ Z (+022) 
L2 (ENTLAST) 
BTP (POLAR BTF 0 Z) 
PG (/ Z (+ (* ANC LS) H)) 
P 1 
PV (* РСА) 
РУ (- P PV) 
PX PG | 
P1 (/ (* P (- №1115 2)) LS) 
P2 (/ (* P (- 2 №115} )) 
) 
(COMMAND "PLINE" BTP "W" 0.5 5 
(POLAR BTP (* PI 0.5) (* 0.3 H)) "") 
(SETQ L1 (ENTLAST)) 

Все команды "PLINE", кроме последней, предназначены для выделения 
того стержня секции, которому соответствует текущий номер цикла 
(REPEAT 4...). В переменной L2 запоминается последний выделенный 
примитив, то есть стержень. На нижнем поясе стрелы последняя команда 
"PLINE" показывает единичную силу в виде стрелки, а переменная Li 
с помощью функции (ЕМТГАЗТ...) запоминает изображенный примитив. 

e расчет усилий в стержнях секций. Выделение того или иного стержня 

для расчета произведем с помощью функции (СОМО...). 


(COND {(= I 1) 
(ТЕ (< N1 NC) 
(ТЕ (<= Z NILS) 
(SETO S (/ (- (- NILS Z) (* РУ №115) ) Н)) 
(SETQ S (/ (-0 (* РУ №115) ) Н)) 
) 
(ТЕ (<= 2 №1115) 
(SETQ S 0) 
(SETQ S (/ (- Z №1115) Н)))) 
) 
((= I2) 
(IF (< N1 NC) 
(IF (<= Z №1115) 
` (ЗЕТО S (/ (- (* РУ №1115) (- N11iLS Z)) H)) 
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(SETQ:S (/ (* РУ N11LS) Н)} 
) 
(ТЕ (<= Z NILS) 
(SETQ S 0) 
(SETQ S (/ (- NILS Z) H)))) 
) 
((=13} 
(IF {< №1 №) 
(ТЕ (<= Z NILS) 
(SETQ S {/ (-1 РУ) $1ТМВ)) 
(ТЕ (AND (> Z №115) (< 2 №115) } 
(SETQ $ (/ (- P1 РУ) $1МВ]}) 
(SETQ $ (/ (- 0 РУ) SINB))) 
) 
(IF (<= Z N11LS) 
(SETQ S 0) 
(IF (AND (> Z №105) (< 2 N11LS)) 
(SETQ S (/ P1 SINB)) 
(SETQ S (/ 1 SINB)})))) 
) 
({(= I4) 
(IF (< N1 NC) 
(ТЕ (<= Z №1115) 
(SETQ S (- РУ 1)) 
(SETQ $ РУ) 
) 
(IF (< Z №1115) 
(SETQ S 0) 
(SETQ $ 1)))) 
) 
» создание графического изображения усилия (линии влияния) в рассмат- 
риваемом стержне: 


(SETQ  BT1 (POLAR ВТ 0 Z) 
S (* S (* 0.3 H}) 
BT2 (POLAR ВТ1 (* PI 0.5) S}) 
(COMMAND "PLINE" ВТ1 "W" 2 2 BT2 "") 
(ENTDEL L2) 
(ENTDEL L1) 
) z 
(SETQ I (+ I 1)}) 
(SETQ ZN (RTOS (/ S (* 0.3 H)) 2 2)) 
(COMMAND "TEXT" BT2 "0" ZN) 
) 


` 
о 5. т. уч > 
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(ТЕ (< N1 NC) (COMAND "PLINE" T2 "W" 2 2 T3 T4 T1 T3 "") 
(COMMAND "PLINE" T1 "W" 2 2 T4 ТЗ T2 T4 ""}) 
(PRIN1) 
) 
В заключение осталось сформировать начало и конец функции, C помо- 
щью которой будет строиться линия влияния, например: 
(DEFUN STRELA (ХЕ YF L H N NC BS AS N1 NZ) 
(SETVAR "CMDECEO" 0) 
(SETVAR "BLIPMODE” 0) 
(COMMAND "LIMITS" "0,0" "400,300" "ZOOM" "A") 
(COMAND "STYLE" и aon en” "1.5" пи nn пн eng 


Ниже представлен комплекс функций для создания параметрического 
изображения фронтальной проекции стрелы заданного вида и построения 
линий влияний для стержней заданной секции стрелы. Функция 
(ЗЕЕВКМА) строит фронтальную проекцию стрелы заданного вида, pac- 
смотренную в главе 3. 


6.2.5. Комплекс функций для расчета и 
параметрического изображения линий влияния стрелы 


; Комплекс функций для создания параметрического изображения 
Фро=;тальной проекции стрелы заданного вида и построения 

линий влияний для стержней заданной секции стрелы 
ххх КкКкКкККККХККХККЖКЖКЖКХЖКЖКЖКкКкККкКк 
(СРЕКМАТ XF YF L H N) - изображение фронтальной проекции 

(STRELA ХЕ УЕ L НМ NC BS AS №1 №) - расчет и изображение 

линий влияния для стержней заданной секции стрелы 

5 ргументы функции: 

ХЕ - базовая точка стрелы по оси X- 

УЕ - базозая точка стрелы по оси У 

L, H, N - длина, высота и число секций в стреле 

NC - номер секции подвеса стрелы 

25, BS- точка крепления каната стрелы по оси X n Y 

N1 - номер секции, предшествующий расчетной 

NZ - число дискретных перемещений единичной силы по стреле 
ххх КХКККККККАККККККККККККАХК АХ КХККК 
DEFUN ЗЕЕВМА1 () | 

(SETQ BTF (LIST XF YF) 

LS (/ LN) 


== G b | ъз ~e ъь LE) bai as `ь ь ~y чо ъа 
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T2 (POLAR BTF 0 LS) 
T1 (POLAR T2 (/ PI 2) H) 
I 0 
№ (- N 2)) 
(COMMAND "PLINE" T2 "W" 0.5 0.5 BTF T1 "С") 
(REPEAT NS 
(SETQ T3 (POLAR T2 0 LS) 
T4 (POLAR T1 0 LS) 
I (+ I1}) 
(IF (< I NC) 
(COMMAND "PLINE" T1 "И" 0.5 0.5 T4 ТЗ T2 T4 "") 
(COMMAND "PLINE" T2 "W" 0.5 0.5 T3 T4 T1 T3 "") 
) 
(SETQ T2 T3 
T1 T4) 
) 
(SETQ ТМ (POLAR T2 0 Г5) 
(COMMAND "PLINE" T4 "И" 0.50.5 ТМ T3 =") 
) 
(DEFUN STRELA (ХЕ YF L H NNC BS AS N1 NZ) 
(SETVAR "CMDECHO" 0) 
(SETVAR "BLIPMODE" 0) 
(COMMAND "LIMITS" "0,0" "400,300" "ZOOM" "ALL" "" ) 
(COMMAND "СТУРЕ" пп nn ии n 5a пп по hn m 
(SFERMA1) 
(SETQ T1 (POLAR BTF PI (* 0.3 H)) 
T2 (POLAR BTF {* PI 1.5) (* 0.3 H)) 
T3 (POLAR BTF PI AS} 
T4 (POLAR T3 (* PI 0.5) BS) 
TK1 (POLAR BTF 0 (* NC LS) } 
TK (POLAR ТК1 (* PI 0.5) H) 
) 
(COMMAND "PLINE" T1 "W" 1 1 BTF T2 "" 
"PLINE" T4 "W" 2 2 TK "” 
"CIRCLE" T1 3 "CIRCLE" T2 3 
"CIRCLE" T4 3 "CIRCLE" TK 3) 
(SETQ T1 (POLAR BTF 0 (* N1 LS)) 
T2 (POLAR T1 (* PI 0.5) H) 
T3 (POLAR T2 0 LS) 
T4 (POLAR T1 0 LS) 


(SETQ А {/ (- BSH) (+ AS (* NC LS)}) 
~ NILS {* N1 LS) 
N11LS (* (+ N1 1) LS) 
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I1 

BT BTF 

DZ (/ (FLOAT L) NZ) 

SINB (АН (SQRT (+ (* HH) (* LS LŁS)))) 


(SETQ пм 
D (* 0.1 H) 
ТТТ (ТТОА (- (* 2 N) №М1)) 
TT2 (ТТОА 11) 
ТТЗ (ТТОА (+ N1 1})) 
TT4 (ТТОА (- (* 2 N) N1 1)) 
ТЬГ (POLAR T1 (* PI 1.5) D) 
2T (POLAR T2 (* PI 0.5) D) 
3T (POLAR T3 (* PI 0.5) D) 
AT (POLAR T4 (* PI 1.5) D) 
TTL " Линия влияния для стержня "} 
(COMMAND "TEXT" Т1Т "0" TT1 
"ТЕХТ" Т2Т *0" T 
"TEXT" T3T "0" TT3 
"ТЕХТ" TAT "0" TTA) 
(REPEAT 4 
(SETQ BT (POLAR BT (* PI 1.5) (* 0.7 H)) 
BTK (POLAR BT 0 L) 
20) 
(COMMAND "PLINE" ВТ "W" 1 1 ВТК "") 
(SETQ BTT (POLAR ВТ (* PI 0.5) (*0.3Н))} 
(COND 
((= I 1} (COMMAND "TEXT" BTT "" 
(STRCAT TTL TT2 " - " TT3))) 
((= I3) (COMMAND "TEXT" BTT "" (IF (< N1 NC) 
(STRCAT TTL TT1 * - " TT3) 
(STRCAT TTL TT2 " - " TT4)})) 
((= I2) (COMMAND "TEXT" BTT "" 
(STRCAT TTL TT1 " - " TT4))) 
((= I 4) (COMMAND "TEXT" BTT "" 
(STRCAT TTL TT3 " - " TT4)))})) 
(REPEAT NZ 
(COND 
((= I 1) (COMMAND "PLINE" T2 "W" 2 2 T3 "")) 
((= I2) (COMMAND "PLINE" T1 "W" 2 2 T4 "")) 
((= I3) (IF (< N1 NC) 
(COMMAND "PLINE" T1 "W" 2 2 T3 =") 
(COMMAND "PLINE" T2 "W" 2 2 T4 ""))) 
((= I4) (COMMAND "PLINE" T3 "W" 2 2 T4 "")) 


зе 
Создание параметрического изображения нагрузок в фермах и: 


(SETQ Z (+1077) 
L2 (ENTLAST) 
BTP (POLAR BTF 0 Z) 
PG (/7 (+ (* A NC LS) H)) 
P1 
РУ (* РСА) 
РУ (- P PV) 
PX PG 
P1 {/ (* P (- №1115 7)) LS) 
P2 (/ (* P (- Z N1LS))}) 
bo 
_ (COMMAND "PLINE” BTP "W" 0.5 5 
(POLAR BTP (* PI 0.5) (* 0.3 H)}) ""} 
(SETQ L1 (ENTLAST)) 
(COND {({(= I1) 
(IF (< N1 №} 


(ТЕ (<= Z N1LS) (SETO S (/ {-.(- №1157) (* РУ №115) Н)) 


(SETQ S (/ {-0 (* РУ №115) ) HÌ) 
) 


(IF (<= Z №115) (SETQ S 0) (SETQ S (/ (- Z N11LS) H})}))}) 


) 
((= I2) 
(IF (< N1 NC) 


(IF (<= Z N11LS) (SETQ S (/ (- {* РУ N11LS) (- N11LS Z)) H)) 


(SETQ S (/ {* РУ №1115) H)) 
) 
(ТЕ (<= Z №115) (5ЕТОЗ0) 
(SETQ 5 (/ (- №15 Z) Н)))) 
) 
( {= I3) 
(IF (< N1 NC) 


(ТЕ (<= 2 N1LS) (SETQ $ (/ (- 1 PY) SINB)) 


(IF (AND (> Z N1LS) (< Z N11LS)) 
(SETQ S (/ (- РТ PY) SINB}) 
(SETQ S (/ (- 0 PY) SINB))) 
) 
(ТЕ (<= 2 N11LS) (SETQ S 0) 
` (IF (AND (> 2 NILS) {< Z N11LS)) 
(SETQ S (/ P1 SINB)) 
(SETQ S (/ 1`SINB)})))) 
i 
((=14) 
(ТР {< №1 №) 


(ТР (<= Z №1115) (SETQ $ (- PY 1)) (SETQ $ PY)) 
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(IF (< 2 №1115} (SETQ $ 0) (SETQ S 1)))) 
SETQ  ВТ1 (POLAR ВТ 0 2) 
SA17 S Е 
BT2 Soap BT1 (* PI 0.5) S)) 


DRT, per 


(SETO = (+ I 1}) 
(SETO ZN (RTOS (/ S (* 0.3 H)) 2 2})) 
COMMAND "TEXT" BT2 "0" ZN) 


(ТЕ {< N1 NC) (COMAND "PLINE” T2 "W" 2 2 ТЗ T4 T1 ТЗ "") 
(COMMAND "PLINE" T1 "W" 2 2 T4 T3 T2 T4 *")) 
(?3IN1) 

) 

(ЭТКЕКА 10 200 320.0 62.0 8 4 220 20 2 32) ; вызов функции 


Результат выполнения функции (STRELA...) представлен на рис. 6.16. 


6.3. Расчет и параметрическое изображение 
различных способов выполнения 
производственного процесса 


6.3.1. Постановка задачи. 


Залан некоторый производственный процесс, который включает М опера- 
ций. Известно время выполнения каждой операции T „ число рабочих 
мест на каждой операции С. и число изделий, которые необходимо изгото- 
вить с использованием данного процесса, М = 15. Кроме того, известны раз- 
мер передаточной партии, P = 5 и время, необходимое на передачу партии 
изделий с одной операции на другую, T = 3. Требуется определить дли- 
тельность производственного процесса при различных способах выполне- 
ния задания и изобразить весь производственный процесс во времени 
с разбивкой по операциям, а в случае необходимости — и по передаточным 
партиям. Необходимая исходная информация представлена в табл. 6.1. 


6.3.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Известны три способа выполнения производственного процесса: последо- 
вательный, последовательно-параллельный, параллельный. 
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SZANS \ 


ЭЛИНИЯ ВЛИЯНИЯ ДЛЯ СТЕРЖНЯ 2-3 


0.50 
ЛИНИЯ ВЛИЯНИЯ ДЛЯ СТЕРЖНЯ 14 - 13 
-0.75 
ЛИНИЯ ВЛИЯНИЯ ДЛЯ СТЕРЖНЯ 14-3 
0.46 
ЛИНИЯ ВЛИЯНИЯ ДЛЯ СТЕРЖНЯ 3-13 
| -0.39 


Рис. 6.16. Результаты расчета секции стрелы 


Таблица 6.1 


И 
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При последовательном способе выполнения производственного процес- 
са вся партия передается на последующую операцию лишь после полного 
окончания изготовления всех изделий на предыдущей операции. В этом 
случае длительность производственного процесса определяется как сум- 
ма операционных циклов T. и времени на межоперационные перерывы, 
связанные с передачей всех изделий с одной операции на другую: 


М М T.. 
To — T +M* Tho = ra + M - МО 
i=1 i=1 Vi 

График последовательного способа выполнения производственного 
процесса представлен на рис. 6.17. | 

Последовательно-параллельный способ выполнения производственного 
процесса предполагает передачу изделий с операции на операцию переда- 
точными партиями по Р штук. Причем передача осуществляется таким 
образом, чтобы на каждой операции все М изделий изготавливались без 
перерыва. 

За счет передачи изделий передаточными партиями можно частично 
совместить операции, а следовательно, сократить цикл изготовления всех 
изделий. В такой ситуации возможны два варианта: 

а) предыдущий операционный цикл меньше последующего: 

T, — т | 
6) предыдущий операционный цикл больше последующего или равен 

ему: 

T, A ты 

В первом случае, когда T, < T., начало изготовления изделий на после- 
дующей операции возможно сразу же после окончания изготовления на 
предыдущей операции первой передаточной партии. Следовательно, вре- 
мя совмещения двух смежных операций T, и T., определяется по времени 
с меньшим операционным циклом: 


NN TN C Длительность операций процесса N = 30, TMO = 6.00 
1 4.00 2.00 

2 3.00 1.00 

3 4.50 3.00 


Длительность последовательного производственного процесса TPP = 207.00 


Рис. 6.17. График последовательного способа выполнения производственного процесса 
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вы iH = (N E P) T:/ С, при T; i Ta 

Во втором случае, когда T, >= T, начало изготовления изделий Ha по- 
следующей операции определяется из условия, что последняя передаточная 
партия, изготовленная на предыдущей операции, сразу же передается для 
изготовления на последующую операцию. Остальные передаточные партии 
должны быть переданы на последующую операцию с таким расчетом, что- 
бы на последующей операции процесс изготовления всех изделий был не- 
прерывным. Время совмещения двух смежных операций T, и T, определя- 
ется по времени T., то есть операции с менышим операционным циклом: 

И 1+1 E (N — Р) Ты / С, при T, Pa T 

Из рассмотренных случаев видно, что экономия времени при изготов- 
лении изделий определяется по времени меньшего операционного цикла 
из двух смежных. Это можно записать следующим образом: 

совм, iti — (М-Р) {Т‚/ С, Ти / Сиам 

Время всего производственного процесса с учетом перерывов на пере- 


дачу изделий с операции на операцию составит: 


M-i M T й M-i T Ty; l 
N nap = Toi DA a mi~ Nò T M в E (N == р)». — 
j 5, (С; Cia ] мм 


График последовательно-параллельного способа организации выполне- 
ния производственного процесса представлен на рис. 6.18. 

При параллельном способе выполнения производственного процесса каж- 
дая передаточная партия сразу после ее изготовления передается для изго- 
товления на следующую операцию. Начало изготовления второй и после- 
дующей передаточных партий определяется по самой продолжительной 
операции. Таким образом, зная время изготовления передаточной партии на 
самой продолжительной операции и откладывая это время на графике для 
первой передаточной операции, можно определить время изготовления со- 
ответствующих передаточных партий. В результате операция, которая ха- 
рактеризуется максимальной продолжительностью изготовления изделий, 


NN TN C Длительность операций процесса N = 30, TMO = 6.00, P = 10.00 


1 4.00 2.00 


2 3.00 1.00 Е 


3 4.50 3.00 


Длительность последовательно-параллельного производственного процесса TPP = 137.00 
Рис. 6.18. График последовательно-параллельного способа производственного процесса 
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NN TN C Длительность операций процесса N = 30, TMO = 6.00, P = 10.00 
1 400 2.00 а. e ее 
2 3.00 1.00 
3 4.50 3.00 ве м. 


Длительность последовательно-параллельного производственного процесса ТРР = 137.00 


Рис. 6.19. График параллельного способа выполнения производственного процесса 


не будет иметь перерывов между передаточными партиями. Время выпол- 
нения производственного процесса при параллельном способе организации 
производства составит: 


М T n 
Tap. =P% p +M чо+(М-Р) 


1=1 l 


Tai Taz Tu; 
$ ухе") 
С, С, C; MAX 
Выражение В фигурных скобках означает, что из всего множества OTHO- 
шений выбирается одно, имеющее максимальное значение. 
r рафик параллельного способа выполнения производственного процес- 


са представлен на рис. 6.19. 


6.3.3. Разработка последовательности действий 
и комплекса функций расчета и параметрического 
изображения различных способов выполнения 
производственного процесса 


Порядок расчета и создания параметрического изображения различных 
способов выполнения производственного процесса включает два основ- 
ных этапа: 

° определение местоположения заголовка, его отображение и определение 
базовой точки для прорисовки графика. Допустим, начало заголовка 
находится в точке ВТ с координатами: X = 10, a Y = 180. Начало npo- 
рисовки графика определяется точкой ВТО, которая смещена по от- 
ношению к точке ВТ на 50 единиц вправо. Координаты точек ВТ 
и ВТО придется определять для каждой операции путем смещения их 
на 20 единиц вниз. Следовательно направление (угол) перемещения 
достаточно определить один раз. В AutoLISP отсчет угла идет от гори- 
зонтальной линии против часовой стрелки, перемещение вниз равно- 

‚ сильно перемещению под углом 270°. Обозначим эту величину PIC. 
Здесь же определим ряд дополнительных переменных; 
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° 6ы60д на чертеж входных данных, расчет и отображение времени вы- 
полнения операционного иикла. Данный этап целесообразно выполнять 
в цикле. Число обращений равно числу операций в производственном 
процессе. В каждом цикле вводится номер операции С.. При этом базо- 
вые точки для ввода исходных данных ВТ и построения графика ВТО 
автоматически пересчитываются и перемещаются на 20 единиц вниз. 

Расчет и отображение времени выполнения операции зависит от спосо- 
ба выполнения производственного процесса. 

При последовательном способе длительность выполнения каждой опе- 
рации определяется по формуле: 

Т=МТ./ С. 

При этом начальная точка отображения времени выполнения следую- 
щей операции определяется по конечной точке предыдущей со смещени- 
ем по горизонтали на время межоперационных перерывов Ти вниз на 
величину заданного шага — (20 единиц). Ширина линии для прорисовки 
времени выполнения операции принята равной двум единицам. 

При последовательно-параллельном способе длительность выполнения 
операции остается такой же, как и при последовательном, однако в смеж- 
ных операциях допускается совмещение их выполнения. 

Если операционный цикл T, меньше операционного цикла T., то npo- 
изводится смещение начальной точки операции BTO на величину (N — P) 
Т,/ С. влево и на 20 единиц вниз относительно конечной точки ВТК, от- 
носящейся к предшествующей операции. 

При параллельном способе предварительно определяется самая продол- 
жительная операция в цикле, затем — длительность выполнения переда- 
точной партии T= РТ, / C, Начало выполнения каждой последующей 
передаточной партии смещено вправо относительно начала выполнения 
предыдущей передаточной партии на величину, которая равна времени из- 
готовления передаточной партии на самой продолжительной операции. 
В этом случае операция, которая характеризуется самым длительным вре- 
менем выполнения, не имеет перерывов. 

Порядок определения местоположения заголовка, его изображения 
и определения базовой точки для прорисовки графика при последователь- 
ном способе состоит в следующем: 


(SETQ ТТ 
ВТ ‘(10 180) ; базовая точка ввода данных 
ВТО ' (100 180) } ; базовая точка для прорисовки графика 


(COMMAND "TEXT" ВТ "0" (STRCAT " ММ ТМ С " 
” Длительность операций процесса М = " (ITOA М} 
" TMO = " (RTOS TMO 2 2))) 
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В функции (COMMAND...) используется одна команда графического 
редактора “TEXT” для вывода на чертеж текстовых данных и три функции 
AutoLISP: (ЗТВСАТ...), (ТТОА N), (RTOS TMO 2 2). 

Функция (ЗТВСАТ...) объединяет, сцепляет все строковые константы 
в одну (один текст). 

Функция (ТТОА N) преобразует целое число (число изделий М) в стро- 
ковую константу для последующего вывода на чертеж. 

Функция (ВТО$ ТМО 2 2) преобразует действительное число (время 
межоперационных перерывов ТМО) в строковую константу, чтобы затем 
вывести ее на чертеж. Второй аргумент функции — 2 указывает, что число 
должно быть представлено в десятичном виде. Третий аргумент - 2 указы- 
вает, что число знаков после запятой должно быть равно двум. 

Вывод на чертеж входных данных, расчет и отображение времени вы- 
полнения операционного цикла может выглядеть следующим образом: 


ЕЕ ЫС 
(SzT7Q TN (CAR EL) ; норма времени на операцию 
С (CDR EL) ; число рабочих мест на операции 
БТ (POLAR ВТ (* РТ 1.5) 20) 
ВТО (POLAR ВТО (* PI 1.5) 20)) 
5 T 


(СОММАМО "TEXT" BT "0" (STRCAT " " (ТТОА I)" " 
(8т05 TN 2 2) "" {RTOS C22)" j] 
(S212 TO {7 ~ NTIN} C) 
BTK (POLAR BTO 0 TO)) 
(COMMAND "PLINE" BTO "М" 2 2 ВТК "") 
(SETQ BTO (POLAR BTK 0 TMO) 
I {+I 1l) 
) 

Функция (FOREACH EL LTC...) последовательно извлекает из спис- 
ка LTC элементы EL, которые, в свою очередь, представляют список из 
двух элементов (T С) - нормы времени на операцию T и числа рабочих 
мест на операции С. При помощи функций: (NTH 0 EL) n (МТН1 EL) из 
списка извлекаются элементы T и С. Значение 0 в функции (NTH 0 EL) 
означает извлечение из списка первого элемента, значение 1 — второго 
элемента списка и т. д. Затем определяются базовые точки ВТ и ВТО для 
ввода исходных данных и создания графического изображения. Исход- 
ные данные вводятся с помощью функции (СОММАМО...). Далее опре- 
деляется длительность операционного цикла ТО, координаты конечной 
точки ВТО и с помощью команды "PLINE" отображается линия, а также 
осуществляется подготовка к следующему циклу. 

В заключение определяется длительность последовательного производ- 
ственного процесса: 
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(ЗЕТО ВТО (POLAR ВТ 0 90) 
TPP (DISTANCE ВТО ВТК} ) 

(COMMAND "TEXT" (POLAR ВТ (* PI 1.5) 20} "0" 

(STRCAT "Длительность последовательного производственного " 
“процесса TPP = " (RTOS ТРРа2))) 


Точка ВТО определяет начало производственного цикла, функция 
(DISTANCE BTT ВТК) - время выполнения всего производственного 
цикла: от начальной точки ВТО до конечной точки ВТК на последней one- 
рации. Команда "TEXT" включает в чертеж текстовую информацию, начи- 
ная с точки (POLAR ВТ (* PI 1.5) 20) с углом наклона текста 0. Функция 
(ЭТКСАТ...) формирует текстовую строку из текста и числа, которое Ipe- 
образуется в текстовый вид с помощью функции (RTOS TPP 22). 


6.3.4. Функции расчета и параметрического 
изображения различных способов выполнения 
производственного процесса 


Ниже представлена функция (POSL LTC М TMO). 


‚ хххххххххкххххххкххххккххххххххххххххххххххххххххххххххххкхххххххххх 
t 


; Функция (POSL LTC N TMO) обеспечивает расчет и параметрическое 
изображение последовательного способа выполнения любого 

; производственного процесса 

Аргументы функции: 

LTC - список норм времени Т_ и числа рабочих С_ в процессе 

; вида ((T1 C1) (T2 C2} (T3 C3)... .) 

; N - число изготавливаемых изделий 

ТМО - время межоперационных перерывов 

Пример использования функции (POSL LTC М TMO) 

; (POSL '((4 2) (3 1) (4.5 3)}) 30 6) 


: хххххкххххкхкхкккккххххххккхккхкххккхххккккхккккхкхкКкккКХхКкККККхАХХКХХКХХ 


(DEFUN POSL (LTC М TMO) 
(SETVAR "CMDECHO" 0) 
(SETVAR "BLIPMODE" 0) 
(COMMAND "LIMITS" "0,0" "297,210") 
( COMMAND "СТУГЕ" ип ип пе ai по shn ne wg 


- о 


че 


= o 


= o 


w p 


(SETQ I1 
ВТ ' (10 180) ; базовая точка ввода данных 
ВТО ‘(100 180) ) ; базовая точка для прорисовки графика 


(COMMAND "TEXT" ВТ "0" (STRCAT " ММ TN С" 
" Длительность операций процесса М = " (ТТОА М) 
", TMO =" (RTOS TMO 2 2)}) 

(FOREACH EL LTC 
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(SETQ ТМ (CAR EL) ; норма времени на операцию 
С (CADR EL) ; число рабочих мест на операции 
ВТ (POLAR BT (* РТ 1.5) 20) | 
ВТО (РОБАВ ВТО (* РТ 1.5) 20)) 
(COMAND "TEXT" ВТ "0" (STRCAT " " (ТТОА I) " " 
(5105 TN 2 2)" " (RTOSC2 2)" ")) 
(SETQ TO (/ (* NTN) C) 
BTK (POLAR BTO 0 TO)) 
(COMAND "PLINE" BTO "W" 2 2 BTK ""} 
(SETQ BTO (POLAR BTK 0 TMO) 
АЕ 
(SETQ BTO (POLAR ВТ 0 90) 
TP? (DISTANCE ВТО ВТК)) 
(COMAND "TEXT" (POLAR ВТ (* PI 1.5) 20) "0" 
(ЭТЕСАТ "Длительность последовательного производственного " 
“пооцесса TPP = " (RTOS TPP 2 2)}) 
(COMAND "ZOOM" "ALL" "" } 
) 
(POSL ‘(14 2) (31) (4.5 3)) 30 6) ; вызов Функции 


Резульгат выполнения функции (POSL...) представлен на рис. 6.20. 


NN TN С Длительность операций процесса М = 30, ТМО = 6.00 
4.00 2.00 
3.00 1.00 


4.50 3.00 


Длительность последовательного производственного процесса ТРР = 207.00 


Рис. 6.20. Параметрическое изображение последовательного способа выполнения 
производственного процесса 


Ниже представлена функция (PPAR LTC МР TMO). 
ххххххххххккхккххххкхкхкхкххкххкххкххкхкхххххкхххкххкхххХххККХКАХКХХХХХХХКХКХХ 
Функция (PPAR LTC МР TMO} обеспечивает расчет и параметрическое 
изображение последовательно-параллельного способа выполнения 
производственного гроцесса 
Аргументы функции: 

LTC - список норм времени Т_ и числа рабочих С_ на операциях 
вида ((T1 C1) (T2 C2) (ТЗ С3)...) 

М - число изготавливаемых изделий 
Р - вбличина передаточной партии 


ae wo b | 


`e b | bak) A) ba) ~e 


A ' : A 
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) 


TMO - время межоперационных перерывов 


‚ Примеь использования функции (PPAR LTC МР TMO) 


(PPAR '((42) (31) (4.5 3)) 30 106) 


. ХХХ КККХККХКХХХХхХХКхХхкхххКкКкККККККХАХКХХХХХХХХкХхХХхХХх 
8 


(DEFUN PPAR (LTC N P TMO) 


(SETVAR "CMDECHO" 0) 
(SETVAR "BLIPMODE" 0) 
(COMMAND "LIMITS" "0,0" "297,210" ) 
{COMMAND "STYLE" ни пн ng" a пи nn nn wng 
(SETQ I1 
BT ' (10 180) 
ВТО ‘(100 180) 
ТВ 0 
TRN 0 } 
(COMMAND "TEXT" ВТ "0" (STRCAT " ММ ТМ С Длительность" 
" операций процесса М = " (ТТОА М) "; TMO =" (RTOS TMO 2 2) 
", P=" (RTOS Р22))) 
(FOREACH EL LTC 
(SETQ TN (CAR EL) 
C (CADR EL) TC (/ TNC) 
BT (POLAR ВТ (* PI 1.5) 20) 
BTO (POLAR BTO (* PI 1.5) 20) 
BTT (POLAR ВТ 0 90} } 
(COMMAND "TEXT" ВТ "0" (5ТВАСАТ " " (ТТОА I) " " 
(RTOS TN 2 2) "" (RTOSC 22)" ")) 
(SETQ TO (/ (* NTN) C) 
TPN (/ (* (- N P} ТМ) С)) 
(IF {> TR TC) (IF (> I 1) (SETQ BTO (POLAR BTO PI ТРМ) )) 
(SETQ BTO (POLAR BTO РТ ТВМ))) 
(SETQ BTK (POLAR BTO 0 TO)) 
(COMMAND "PLINE" BTO "W" 2 2 BTK "") 
(SETQ BTO (POLAR BTK 0 TMO) 
L {FI LI) 
(SETQ TR TC 
TRN TPN) ) 
(SETQ TPP (DISTANCE BTT ВТК) ) 
(COMMAND "TEXT" (POLAR ВТ (* PI 1.5) 20) "0" 
(STRCAT "Длительность последовательно-параллельного " 
"производственного процесса TPP = " (RTOS TPP 2 2))) 
(COMMAND "ZOOM" "ALL" "" } 


(PPAR '((42) (31) (4.5 3)) 30 10 6) ; вызов функции 


Результат выполнения функции (PPAR...) представлен на рис. 6.21. 
Ниже представлена функция (РАВ LTC МР TMO). 
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NN м C Длительность операций процесса N = 30, TMO = 6.00, P = 10.00 
1 4.00 2.00 
2 3.00 1.00 


3 4.50 3.00 


Длительность последовательно-параллельного производственного процесса ТРР = 137.00 


Рис. 6.21. Параметрическое изображение последовательно-параллельного способа 
выполнения производственного процесса 


ххх ккххкххкхкххххххххкхкхкхххкхххххкяхкхххххххххкх 


“гв чу 


у=кция (РАК LTC N P TMO) обеспечивает расчет и параметрическое 
представление параллельного способа выполнения 

гроизводственного процесса 

Аргументы Функции: 

LTC - список норм времени T_n числа рабочих С_ на 

олесатиях вида ((T1 C1) (T2 C2) (T3 С3)...) 

№ - число изготавливаемых изделий 

Р - величина перелаточной партии 

TMO - зоемя межоперанионных перерывов 

Пример использования функции (РАВ LTC N P TMO) 

(РАВ '((42) (31) (4.5 3)) 30 10 6) 
хххххххкххкхкххккккхкхххкхкхкххкхххккхххккхххкхкххххкхкхххххкхкКхкКХХхХХхХхХхХХХх 
(DEFUN РАВ (LTC МР TMO) 

(SETVAR "CMDECHO" 0) (SETVAR "ВЫТРМОРЕ" 0). 

(COMMAND "LIMITS" "0,0" "297,210") 

(COMMAND "CTYLE" по nB mAN =j" во по NFR P 


Ja 


ùp - в OW) OT ъо a ae 


~e OT) чь as 


(SETQ I1 
T (10 180) 
BTO ' (100 180) 
NP (/ МР) 
ТСМАХ 0) 
(COMMAND "TEXT" ВТ "0" «5ТВСАТ " ММ TNC " 
" Длительность операций процесса М = " (ТТОА М) 


", ТМО =" (RTOS TMO 22) ", P=" (RTOS P 2 2))}) 
(FOREACH EL LTC | 
(SETQ ТМ (CAR ЕЦ} 
С (CADR EL) 
TC (/ ТМС)} 
(IF (> ТС TCMAX) (SETQ TCMAX TC)) 
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(SETO ТРМАХ (* ТСМАХ P)) 
(FOREACH EL LTC 
(SETQ TN (CAR EL) 
C (CADR EL) 
BT (POLAR BT (* PI 1.5) 20) 
BTO (POLAR BTO (* PI 1.5) 20) 
BTT (POLAR BT 0 90)) 
(COMMAND "TEXT" BT "0" (STRCAT " " (ITOA I) "" 
(RTOS TN 2 2) "" (RTOS C22)" ")) 
(SETQ TO (/ (* PTN) С) 
BTK (POLAR BTO 0 TO) 
T1 BTO 
T2 BTK) 
(REPEAT NP 
(SETQ BT2 T2) 
(COMMAND "PLINE" T1 "W" 2 2 T2 "") 
(SETQ T1 (POLAR T1 0 TPMAX) 
T2 (POLAR T1 0 TO))) 
(SETQ BTO (POLAR BTK 0 TMO) 
I (+ I1)})) 
) 
(SETQ TPP (DISTANCE BTT BT2)) 
(COMMAND "TEXT" (POLAR BT (* PI 1.5) 20) "0" 
(STRCAT "Длительность параллельного производственного " 
“процесса TPP = " (RTOS TPP 2 2))) 
(COMMAND "ZOOM" "ALL" "" }) 
(PAR '((42) (31) (4.5 3)) 30 10 6) ; вызов функции 


Результат выполнения функции (РАК...) представлен на рис. 6.22. 

Часто возникают ситуации, когда график изображения производствен- 
ного процесса выходит за рамки экрана. В этом случае возможны два спо- 
соба просмотра графика выполнения всего производственного процесса. 


NN TN C Длительность операций процесса N = 30, TMO = 6.00, P = 10.00 
1 4.00 2.00 
2 3.00 1.00 


3 4.50 3.00 


Длительность последовательно-параллельного производственного процесса TPP = 137.00 


Рис. 6.22. Пораметрическое изображение параллельного способа выполнения 
производственного процесса 


= or dey iw 
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° Первый, самый простой, но не самый лучший, — использовать команду 
графического редактора "ZOOM" (Показать) с ключом А (ALL - Все). Ipa- 
фик производственного процесса появится на экране полностью, однако 
подписи на графике могут быть очень мелкими. 

Второй способ связан с дополнительными операциями вычислений 
H обеспечивает автоматическое уменьшение только графика. Для того YTO- 
бы воспользоваться вторым способом, достаточно определить коэффициент 
масштабирования КМ для самого продолжительного производственного 
процесса — последовательного, который определяется следующим образом: 


(S210 TJ U} 


(FOREACH EL LIC ; определение длительности процесса 
(SEIO т Та U EL) ; норма времени на операцию 
С (NTH 1 EL) ; число рабочих мест на операции 
ТО (/ (* МТМ) С) ; длительность выполнения операции 
TD {+ TD TO})}) ; длительность выполнения процесса 
) 
(SETQ KM (/ 209.0 TD)) ; определение коэффициента масштабирования 


Используя коэффициент масштабирования КМ, необходимо ввести со- 
ответствующие изменения, связанные с определением времени выполне- 
ния операций ТО, времени межоперационных перерывов ТМО и всего 
производственного процесса TPP. 

После определения длительности процесса ТО: 

(SELIO TO {7 (* N IN F C)) 
следует скорректировать величину длительности процесса: 
(SETQ TO (* TO ЕМ)) 

Перед использованием времени межоперационного цикла TMO необхо- 

димо задать его скорректированное значение: 
(SETQ TMO (* TMO #М)) 

Поскольку ТО и TMO были скорректированы с использованием коэф- 
фициента масштабирования КМ, необходимо восстановить реальную дли- 
тельность всего процесса TPP. 

Там, где определены значения ТРР 

(SETQ TPP (DISTANCE ВТО BTK) ) 
их следует заменить на выражение для определения реального времени 
ТРР: 
(SETQ TPP (/ TPP КМ)) 
_ Одновременно с модернизацией функций введем новое условие. До- 
пустим, время межоперационных перерывов непостоянно. В таком слу- 
чае, кроме Т_ — нормы времени на выполнение операции и С _ - числа 
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рабочих мест на операции, в список LTC следует ввести время MEX- 
операционных перерывов ТМО: 


(71 C1 TMOL) (T2 C2 TMO2) (T3 C3 TMO3)..) 


В окончательном виде функция (POSLêÍ1 LTC N) будет выглядеть сле- 


дующим образом: 


; 


t 


чо 


ххх кхххккхххкххххххкхххкхкккхХххкхХхкххкхкякАХХкКХХХКХяХХХ 


‚ Функция (POSL1 ГТС М) обеспечивает расчет и гараметрическое 


изображение последовательного способа выполнения 
производственного процесса 
Аргументы функции: 


‚ LTC - список норм времени Т_, числа рабочих мест С_ и времени 
‚ межоперационных перерывов ТМО_ в производственном процессе 

; вида ((Т1 C1 TMO1) (T2 C2 TMO2) (T3 C3 TMO3)...) 

‚ № - число изготавливаемых изделий 

; Пример использования функции (POSL1 LTC N) 

‚ [РОЗЫ *414 20,5] (311.0) (4.53 1.5)) 30) 


ххххххккхххккхххххххххкхххххххххххххххххххкхххххххххххххххххххххххххХх 


(DEFUN POSL1 (LTC М} 


(SETVAR "CMDECHO" 0) 

(SETVAR "BLIPMODE" 0) 

(COMMAND "LIMITS" "0,0" "297,210") 

( COMMAND "СТУГЕ" ии ни "n aai a an пп пп M] 


(SETQ I1 
BT ' (10 180) ; базовая точка ввода данных 
ВТО ‘(100 180) ) ; базовая точка для прорисовки графика 


(COMMAND "TEXT" ВТ "0" (STRCAT " ММ ТМ С TMO " 
" Длительность операций процесса при М = " (ТТОА N})) 


(SETO TD 0) 
(FOREACH EL LTC ; определение длительности процесса 
(SETO ТМ (NTH 0 EL) ; норма времени на операцию 
С (NTH 1 EL) ; число рабочих мест на операции 
ТО (/ (* N TN ) С}; длительность выполнения операции 
TD (+ TD ТО} ) ; длительность выполнения процесса 
(SETQ КМ (/ 200.0 ТО} } ; определение коэффициента масштабирования 
(FOREACH EL LTC | 
(SETQ ТМ (NTH 0 EL) ; норма времени на операцию 
С (NTH 1 EL) ; число рабочих мест на операции 
TMO (NTH 2 EL) ; длительность межоперационного 
; перерыва 
ВТ (POLAR ВТ (* РТ 1.5} 20) ; Точка ввода данных 
ВТО (POLAR ВТО (* РТ 1.5) 20) ; точка начала операции 


ТО (/ (* N TN } С); длительность выполнения операции 
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ТО (* TO KM) ; скорректированная длительность операций 
BTK (РОБАК ВТО 0 ТО)) ; точка окончания операции 

(COMMAND "TEXT" ВТ "0" (STRCAT " " (ITOA I)" " 

(RTOS TN 2 2) "= = (RTOSC 22)" " (RTOS TMO2 2)" ")) 

(COMAND "PLINE" BTO "W" 2 2 BTK" ") 


(SETQ TMO (* TMO KM) ; скорость время межоперационных перерывов 
ВТО (POLAR ВТК 0 TMO) ; точка начала следующей операции 
I (+I 1)) 
) 
(SETO BTO (POLAR BT 0 90) ; точка начала процесса 
ТОР (DISTANCE ВТО ВТК) ; скорректир. длительность процесса 
TPP (/ TPP КМ) ) ; реальная длительность процесса 


(COMAND "TEXT" (POLAR ВТ (* PI 1.5} 20) "0" 

(STRCAT "Длительность последовательного производственного" 
" процесса TPP = " (RTOS TPP 2 2)) 

) 

(COMAND "ZOOM" "ALL" "" ) 

) 

(POSLI '((420.5) (311.0) (4.53 0.0)) 60) ; вызов функции 


Результат выполнения функции (РОЗ...) представлен на рис. 6.23. 
ММ TN C TMO Длительность операций процесса при N = 60 

1 4.00 2.00 0.50 

2 3.00 1.00 1.00 


3 4.50 3.00 0.00 


Длительность последовательного производственного процесса ТРР = 391.50 


Рис. 6.23. Параметрическое изображение последовательного способа выполнения 
производственного процесса 


Аналогичную модернизацию можно осуществить и для функций 
(PPAR...) и (РАК...). 


ххххххкхкккхххххххххкххкххккхххххкхххккхххкхкхкхххххХхяхххкхкХхххкХххХХхХхХхХхХхХяХх 
Функция (PPAR1 LTC МР} обеспечивает расчет и параметрическое 
изображение последовательно-параллельного способа выполнения 
; производственного процесса 
Аргументы функции: 
ГТС - список норм времени Т_ ; числа рабочих мест С_ на 
операциях и времени межоперационных перерывов ТМО_ вида 
( (T1 C1 TMO1) (T2 C2 TMO2) (ТЗ С3, TMO3)...) 
N - число изготавливаемых изделий 
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; Р - величина передаточной партии 
; Пример использования функции (РРАК1 LTC N P) 
‚ (РРАВ1 '((420.5) (311.0) (4.53 1.5)) 30 10) 
- ххх КАХА ККККХХХХКАХхкКкКХхХКХККХХХАХАКХАХХХХ 
(DEFUN РРАВ1 (ГТС МР) 
(ЗЕТУАВ "СМОЕСНО" 0) 
(SETVAR "ВЬТРМОПЕ" 0) 
(COMMAND "LIMITS" "0,0" "297,210") 
(COMMAND "OGTYLE" "т" ия "Ди "„]" на ия nn uny 
(SETQ I1 . 
BT ' (10 180) 
BTO ' (100 180) 
TR 0 
TRN 0 ) 
(COMMAND "TEXT" BT "0" (STRCAT " NN TN С TMO " 
" Длительность операций процесса при М = "`(ТТОА М} 
"n P=" (1Т0АР))) 
(SETQ TD 0) 
(FOREACH EL LTC 
(SETQ TN (NTH 0 EL) 


определение длительности процесса 
‚ норма времени на операцию 


a 


C (NTH 1 EL) ; число рабочих мест на операции 
ТО (/ (* МТМ) С) ; длительность выполнения операции 
TD (+ TD TO})) ; длительность выполнения процесса 
(SETQ КМ (/ 200.0 То) ) ; определение коэффициента масштабирования 


(FOREACH EL LTC 
(SETQ TN (NTH 0 EL) 
C (NTH 1 EL) 
TC (/ TNC) 
TMO (NTH 2 EL) 
BT (POLAR BT (* PI 1.5) 20) 
BTO (POLAR BTO (* PI 1.5) 20) 
BTT (POLAR ВТ 0 90)}) 
(COMMAND "TEXT" BT "0" (STRCAT " " (ITOA I) "" 
(RTOS TN 2 2) " " (RTOS C 2 2) " " (RTOS TMO 2 2) " ^)) 
(SETQ TO (/ (*NTN)C) 
TO (* TO KM) 
TPN (/ (* (- NP) TN} С) 
TPN (* TPN КМ) } 
(IF (> TR TC) (IF (> I 1) (SETQ BTO (POLAR BTO PI TPN))) 
(SETQ BTO (POLAR BTO PI TRN})) 
(SETQ BTK (POLAR BTO 0 ТО} ) 
(COMMAND "PLINE" BTO "W" 2 2 ВТК "") 
(SETQ BTO (POLAR BTK 0 TMO) 
I (+ I1)) | 
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(SETQ TR TC TRN ТЕМ) ) 
(SETQ TPP (DISTANCE BTT BTK) 
TPP (/ TPP KN)) 
(COMMAND "TEXT" (POLAR BT (* PI 1.5) 20) "0" 
(STRCAT “Длительность последовательно-параллельного производственного " 
“пооцесса TPP = " (RTOS ТРР22))} 
(COMAND "ZOOM" "ALL" "" )) 
(PPARI '((4 2 0.5) (311.0) (4.53 1.5)) 60 10) 


Результат выполнения функции (PPAR1...) представлен на рис. 6.24. 
ММ ТМ С TMO Длительность операций процесса при М = 60 nP = 10 

1 4.00 2.00 0.50 

2 3.00 1.00 1.00 


3 4.50 3.00 1.50 


Длит. последовательно-параллельного производственного процесса ТРР = 217.93 


Рис. 6.24. Параметрическое изображение последовательно-параллельного способа 
выполнения производственного процесса 


хххххккхххкхккккхкккхкхкккккхкхххкхххкхххкххкхкхххххххххххккххкяхххххххххХ 


; Функция (PAR1 LTC МР) обеспечивает расчет и параметрическое 
; изобраке=ие параллельного способа выполнения 
; гроизводственного процесса 
Аргументы Функции: 
LTC - список норм времени Т_ , числа рабочих мест С_ и времени 
мехоперапионных перерывов ТМО_ в производственном процессе 
вида ((Т1 C1 TMO1) (T2 C2 TMO2} (T3 C3 ТмО3)...) 
N - число изготавливаемых изделий 
Р - величина передаточной партии 
Пример использования функции (РАК1 LTC N P) 
; (РАВ1 '((420.5) (311.0) (4.5 31.5)) 30 10) 
- хххкхкхкхккххххкхкхххххххкххххххххххххкхххххххХхкххххХХХхХХАКХхяХяхХхХхХХхХхХХхХ 
(DEFUN РАВ1 (LTC МР) 

(SETVAR "СМОЕСНО" 0) 

(СЕТУАВ "BLIPMODE” 0) 

(COMMAND "LIMITS" "0,0" "297,210" ) 

( COMMAND "STYLE" пи па "д" = нп nA па Бы 


`о ъв we ъь <. ``. 


ъе 


(SETQ I 1 
BT ' (10 180) ; базовая точка ввода данных 
ВТО '’ (100 180) ; базовая точка для прорисовки графика 


МР (/ МР) , ; число передаточных партий 
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TCMAX 0) 
(COMMAND "TEXT" ВТ "0" (STRCAT " NN TN C TMO " 
" Длительность операций процесса при М = " (ITOA N) 
"u P=" (ITOA P))) 


(SETQ TD 0) 
(FOREACH EL LTC ; определение длит. послед. процесса 
(SETQ TN (NTH 0 EL) ; норма времени на операцию 
С (NTH 1 EL) ; число рабочих мест на операции 
TO (1 (* МТМ} C) ; длительность выполнения операции 
TD (+ TD TO)) ; длительность выполнения процесса 
) 
(SETQ КМ (/ 200.0 ТБ) ) ; определение коэффициента масштабирования 


(FOREACH ЕЁ LTC 
(SETQ ТМ (NTH О EL) 
C (NTH 1 EL) 
TC (/ TNC) 
TC (* TC KM)) 
(ТР (> TC ТСМАХ) (SETQ TCMAX ТС} ) 
) 
(ЗЕТО ТРМАХ ({* ТСМАХ Р}) 
(FOREACH EL LTC 
(SETQ ТМ (NTH 0 EL) 


C (NTH 1 EL) 

TMO (NTH 2 EL) 

BT (POLAR ВТ (* PI 1.5) 20) ; точка ввода данных 

ВТО (POLAR ВТО (* PI 1.5) 20) ; точка начала партии 

BTT (POLAR ВТ 0 90) 

TO (/ (* РТМ) C) ; длительность изготовления партии . 
ТО (* ТО КМ) ; скорректированная длительность 

ВТК (POLAR ВТО 0 TO) ; точка окончания изготовления партии 
T1 BTO 

T2 BTK) 


(COMMAND "TEXT" ВТ "0" (STRCAT " " (ITOA I)” " 
(RTOS TN 2 2) " " (RTOS C 2 2)" " (RTOS TMO 2 2)" "})) 
(REPEAT NP 

(SETQ BT2 T2) 

(COMMAND "PLINE" T1 "W" 2 2 T2 "") 

(SETQ T1 (POLAR T1 0 TPMAX) 

T2 (POLAR T1 0 TO)) 

) 


(SETQ TMO (* TMO KM) ; скорр. время межоперационных перерывов 
ВТО (POLAR ВТК 0 ТМО) 
I (+11)) 

) 

(SETQ TPP (DISTANCE BTT ВТ2}  ; скоррект. длительность процесса 


TPP {/ TPP КМ) ) ; реальная длительность процесса 
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(COMAND "TEXT" (POLAR ВТ (* РТ 1.5) 20) "0" 

(ЗТАСАТ " Дпительность параллельного " 
“производственного процесса TPP = " (RTOS TPP 2 2))) 

(COMMAND "ZOOM" "ALL" *" )) 

(2451 *((4 20.5) (311.0) (4.530.0)) 60 10) 


Результат выполнения функции (РАВ...) представлен на рис. 6.25. 


ММ ТМ С TMO Длительность операций процесса при М = 60 иР = 10 


1 4.00 2.00 0.50 


2 3.00 1.00 1.00 


3 4.50 3.00 1.50 


Длит. последовательно-параллельного производственного процесса ТРР = 217.93 


Рис. 6.25. Парометреское изображение параллельного способа выполнения 
производственного процесса 


6.4. Оптимизация загрузки оборудования 


6.4.1. Постановка задачи 


Необходимо организовать производство нескольких видов изделий, каж- 
дое из которых должно быть обработано на двух станках (оборудовании...). 
Известно время и последовательность обработки каждого изделия на каж- 
дом станке (см. табл. 6.2). Требуется определить такую последовательность 
запуска изделий в производство, чтобы суммарное время на изготовление 
всех изделий на двух станках было минимальным. 


6.4.2. Выявление основных особенностей, 
взаимосвязей и количественных закономерностей 


Время обработки ]-го изделия на 1-ом станке обозначим T. Предполагает- 
ся, что время перехода изделия от одного станка к другому незначительно, 
им можно пренебречь или включить в длительность операции. 


Таблица 6.2 


СИ, 
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Каждое изделие обрабатывается вначале на первом станке, затем на вто- 
ром. Обработка изделия на первом станке должна быть завершена прежде, 
чем она начнется на втором. 

Исходный порядок запуска изделий в производство, который, может 
быть, и не самый оптимальный, представим следующим образом: 

И, => e> И; Ba И, =e И, а И. 

Процесс изготовления изделий отобразим графически (см. рис. 6.26). 

Критерий оптимизации представляет собой суммарное время обработ- 
ки изделий на двух станках (Т) и определяется как сумма времени про- 
стоев второго станка в ожидании изделий с первого станка и времени об- 
работки этих изделий на втором станке: 


M M | 

T= T, +» T, =(5+2+3+6+6+7)+(6+3+2+1)=29+12=41 

Ji = 

Поскольку время обработки изделий на втором станке согласно условию 
задачи не изменяется, то суммарное время обработки изделий можно умень- 
шить за счет изменения порядка запуска изделий в производство. Для ре- 
шения этой задачи разработаны различные алгоритмы решения. Рассмот- 
рим один из наиболее простых и часто используемых — алгоритм Джонсона. 

Оптимизация запуска изделий в производство — это типичная комби- 
наторная задача, решение которой состоит в изменении порядка запуска 
изделий в производство. Следовательно, если перебрать все возможные 
варианты запуска изделий в производство (число вариантов М равно N!), 
то для нашей задачи М = 6! = 720. 


6.4.3. Разработка последовательности действий 
и комплекса функций для расчета и изображения 
оптимальной загрузки двух станков 


Алгоритм Джонсона значительно сокращает, а также упрощает процесс 

поиска оптимального варианта и состоит из трех этапов: 

1. Поиска наименьших элементов. В табл. 6.2 находим минимальное вре- 
мя (это время обработки 2-го изделия на втором станке) и отмечаем 
его звездочкой. 

2. Изменения порядка запуска изделий в производство. 

Если наименьший элемент (время обработки изделия) относится к пер- 
вому станку, то изделие первым запускается в производство и его переме- 
щают в начало новой таблицы (см. табл. 6.3). 

Если наименьший элемент (время обработки изделия) относится ко 
второму станку, то изделие запускается в производство последним и его 
перемещают в конец новой таблицы (см. табл. 6.3). 


10 — 1278 
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Исходный порядок запуска изделий в производство 


Ta =5 122=2 T= 
m m 
Tm=3 Tn3=2 T= 
Общая продолжительность работ TPP = 41.00 


Рис. 6.26. График запуска изделий в производство 


Когда имеются несколько наименьших элементов (время обработки из- 
делия) и они относятся к первому (второму) станку, то изделие первым 
(последним) запускается в производство, то есть его перемещают в начало 
(конец) новой таблицы (табл. 6.3). Если наименьшие элементы (время об- 
работки изделия) относятся как к первому станку, так и ко второму, то 
изделия перемещают в начало или конец новой таблицы согласно выше- 
изложенным правилам. 

Перемещенное в начало (конец) таблицы изделие помечается звездоч- 
кой, переносу в дальнейшем не подлежит и в расчете не учитывается. 
В нашей задаче минимальный элемент относится ко второму станку, сле- 
довательно, изделие с минимальным временем обработки на втором стан- 
ке обрабатывается последним (см. табл. 6.3). Это изделне, отмеченное звез- 
дочкой, как и весь столбец полностью, переносятся в конец табл. 6.3. 

После перемещения изделия в начало (конец) таблицы алгоритм расче- 
та повторяется с первого этапа до тех пор, пока изделия можно переме- 
щать. Напомним, что перемещенные изделия (изделия, отмеченные звез- 
дочкой) в дальнейших расчетах не участвуют. В окончательном виде 
таблица запуска изделий в производство для нашей задачи представлена 
ниже (см. табл. 6.4). 

Таким образом, оптимальный порядок запуска изделий в производство 
будет выглядеть следующим образом: 

И. —->И,->И,-—> И, —> И, —> И, 


Таблица 6.3 


= è „ирак 
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Таблица 6.4 


После определения оптимального порядка запуска изделий в про- 
изводство вычисляется суммарное время изготовления всех изделий 
(см. рис. 6.27). 

Суммарное время обработки изделий (Т) определяется как сумма вре- 
мени простоев второго станка в ожидании изделий с первого станка и вре- 
мени обработки этих изделий на втором станке. 

M M 
Т=У T, +ò T,;=(7+6+6+5+3+2)+(4+1)=29+5=34 
}i j=i 

Ha. puc. 6.27 видно, что время простоя второго станка существенно CO- 
кратилось, следовательно сократилось время обработки всех изделий, оно 
составило T = 34. Таким образом, суммарное время изготовления всех из- 
делий сократилось на 17%. 

Для расчета и создания графического изображения онтимального по- 
рядка запуска изделий в производство необходимо: 

° определить местоположение заголовка, базовых точек (для создания 

графического изображения таблицы и графиков). Положим, что нача- 
ло заголовка находится в точке ТТ с координатами X = 10, a Y = 200. 
Базовая точка ввода даниых в таблицу находится в точке ВТ с коорди- 
натами Х = 10, а У = 190. Начальными точками для прорисовки гра- 
фиков являются ВТ1 и ВТ2, которые смещены по отношению к точке 
BT u BT1 вниз на 40 и 20 единиц соответственно: 


Оптимальный порядок запуска изделий в производство 


6e la js h 33 [2 
400 |500 |700 |600 | 
7.00 |6.o0 |600 |500 _ 


Ta =7 Tz; 76 125=6 Т21=5 13=3 Т22=2 
-— 


Тго=1 
Общая продолжительность работ ТРР = 34.00 i 


Рис. 6.27. График оптимального запуска изделий в производство 


10* 
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* построить таблицы исходных данных и результатов расчета для об- 
легчения анализа данных. Построение будем осуществлять в цикле по 
числу изготавливаемых изделий с помощью специально созданной 
функции (KLETKA), которая строит клетку таблицы; 

e сформировать графическое изображение процесса изготовления изде- 
лий на первом.и втором станках для того, чтобы определить общую 
продолжительность всего процесса. График изготовления изделий 
может выходить за пределы экрана. Чтобы этого не случилось, следу- 
ет определить коэффициент масштабирования КМ, с помощью кото- 
рого корректируется время изготовления изделий; 

° изменить порядок изготовления изделий согласно алгоритму Джонсона 
для оптимизации процесса; 

* отобразить график изготовления изделий на первом и втором станках 
для того, чтобы определить общую продолжительность выполнения 
всего процесса. 

Для отображения таблицы и графиков определим на AutoLISP место- 

положение заголовка и базовых точек: 
(COMAND "LIMITS" "0,0" 297,210" "ZOOM" "А") 
(COMMAND "STYLE" "" "m agn ngn na nn an nm) 


(SaO О ; базовая точка ввода заголовка таблицы 
3r а 190) ; базовая точка ввода данных в таблицу 
I 0) 


; цикл изображения исходных 

; данных и результатов 

ETVAR "BLIPMODE" 0) ; отключение изображения маркера 

F (= I 0) (COMMAND "TEXT" TT "0" 

"Исходный порядок запуска изделий в производство") 
(COMMAND "TEXT" "10,100" "0" 

"Оптимальный порядок запуска изделий в производство") )} 


(SETI ВТ1 (POLAR ВТ (* PI 1.5) 40) ; точка ввода графика 
BT2 (POLAR ВТ1 (* PI 1.5) 20) ; точка ввода графика 
BIT ВТ2 
TD 0) 


Для ввода заголовков таблиц в функциях (COMMAND...) использует- 
ся одна команда графического редактора "TEXT". 
Построение и ввод данных в таблицу можно организовать в виде цикла: 


(ЕОРЕЕРСП EL LT ; цикл построения таблицы с данными 
(SETO М (NTH 0 EL} ; номер изготавливаемого изделия 
T1 (NTH 1 EL) ; время изготовления изделия на 1-м станке 
T2 (NTH 2 EL) ‚ ; Время изготовления изделия на 2-м станке 


TD (+ TD T1 Т2)) ; время для корректировки графика 
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(KLETKA BT) ; вызов функции для изображения клетки 
(COMMAND "ТЕХТ" (POLAR K4 (/ РТ 9) 4) "0" (ТТОА М) ) 
_ (KLETKA K4) | 
(COMMAND "TEXT" (POLAR K4 (/ РТ 9) 4) "0" (RTOS T1 2 2)) 
(KLETKA K4) 
(COMMAND "TEXT" (POLAR K4 {/ PI 9) 4) "0" (RTOS T2 2 2})) 


(SETO BT (POLAR ВТ 0 30)) ; базовая точка следующей клетки 


) 
Для создания клетки таблицы используется функция (КГЕТКА...), ko- 
торая может быть записана так: 
‚ Функция изображающая клетку таблицы 
(DEFUN KLETKA (К1) 
(SETQ K2 (POLAR K1 0 30) 
K3 (POLAR K2 (* PI 1.5) 10) 
K4 (POLAR K1 (* PI 1.5) 10)) 
(COMMAND "LINE" K1 K2 КЗ K4 K1 "") 


) 
Для вывода в таблицу числовых данных в функции (COMMAND...) 


используется команда графического редактора "TEXT". 

Функция (ТТОА М) преобразует целое число — номер изделия М в стро- 
ковую константу, чтобы ввести затем в таблицу. 

Функция (RTOS TMO 2 2) преобразует действительное число — время 
изготовления изделия в строковую константу, чтобы затем ввести это чис- 
ло в таблицу. Второй аргумент функции - 2 указывает, что число должно 
быть представлено в десятичном виде. Третий аргумент — 2 указывает, что 
число знаков после запятой должно быть равно двум. 

Отображение графика изготовления изделий на первом и втором стан- 
ках для исходного варианта и определение общей продолжительности все- 
го процесса можно выполнить следующим образом: 


(SETQ — КМ (/ 400 TD) ; определение коэффициента маситабисования 
T1 (NTH 1 (NTH 0 LT)) ; время изготовления 1-го изделия 
Т1 (* T1 КМ) ; скорректированное время 
ВТ2 (POLAR ВТ2 0 Т1)) ; начало отображения 2-го графика 
(SETVAR "BLIPMODE" 1) ; ввод маркера на графиках 
(FOREACH EL LT ; цикл отображения графиков 
(SETO N (NTH 0 EL) ; номер изготавливаемого изделия 
Т1 (NTH 1 EL} ; время изготовления изделия 
; на 1-м станке 
Ti (* T1 КМ) ; скорректированное время 
; изготовления 
T2 (NTH 2 EL) ; время изготовления изделия 


; на 2-м станке 


"чьи, -- Ъ.. o 
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T2 (> T2 KM) ; скорректированное время 
; изготовления 
ВТК1 (FOLAR ВТ1 0 T1}) ; точка окончания 


; изготовления изделия 
(СОУМАМО "PLINE" BT1 "W" 2 2 ВТК! "") ; отображение 1-го графика 
(SETO  BT1 ВТК1 
BTT2 (POLAR BTK1 (* PI 1.5) 20)) 
(ТЕ (>= (NTH Ô BTT2) (NTH 0 BT2)) (SETQ BT2 BTT2)) 
(SETO 5TK2 (POLAR БТ2 0 T2)) 
(COMAND "PLINE" BT2 "W" 2 2 BTK2 "")  ; отображение 2-го графика 
(SETO BT2 БТК2) 
) 


522). T2? (DISTANCE BTT BTK2) 


( 
РРР (/ TPP KM)) 
(COMMAND "TEXT" (POLAR BTT (* PI 1.5) 15) "0" (STRCAT 
"ссшая поодолжительность работ TPP = " (RTOS TPP 2 2})) 


Изменение порядка изготовления изделий согласно алгоритму Джонсо- 
га будет выглядеть следующим образом: 


(SETQ ET “(10 90) ; точка ввода текста для 
; оптимального варианта 
LI '{) ; список с NepeMeneHneM изделий 
; в начало таблицы 
L2 '() ; список с перемещением изделий 
; в конец таблицы 
ММ (LENGTH LT)) ; определение числа изготавливаемых 
; изделий 
(КЕРЕЕТ ММ 
(SETQ TMIN mi ) 
(FOREACH EL L 
(SETQTI (NTH 1 EL) 
T2 (NTH 2 EL)) 


T1 TMIN) (SETQ TMIN T1 NS 1)) 
(IF (< T2 TMIN) (SETQ TMIN T2 NS 2)) 


N 
г 
= t 
HJ 


1 (NTE 1 EL) ; время изготовления изделия 
; на 1-м станке 
T2 (NTH 2 EL)) ; время изготовления изделия 


; на 2-м станке 
(ТЕ (АМО (= T1 TMIN) (/= T1 T2) (= NS 1)) 
(SETO L1 (CANS EL L1) LT (DEL EL ЁТ))) 
(IF (END (= T2 TMIN) (= №2)) 
(SETQ L2 (CONS EL L2) LT (DEL EL LT) ) )) 
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) 

(SETQ LT (APPEND L1 L2) 
I (+ I 1)) 

) 


Функция (CANS...) добавляет элемент EL в конец списка LT, a функ 
ция (DEL...) удаляет элемент EL из списка LT. 


; Функция добавления элемента EL в конец списка LT 
(DEFUN CANS (EL LT) 
(SETQ LT1 (REVERSE LT) 
LT2 (CONS EL LT1)) 
(REVERSE. LT2) 
) 


; Функция удаления одного элемента EL из списка LT 
(DEFUN DEL (EL LT) 
(COND ( (NULL LT) NIL) 
( (EQUAL EL (CAR LT)) (CDR LT)) 
(T (CONS (CAR LT) (DEL EL (CDR 1Т))))) 
) 
В окончательном виде функция (DJON...), которая обеспечивает расчет 
и графическое отображение оптимальной загрузки двух станков (алгоритм 
Джонсона), представлена ниже. 


6.4.4. Функция для расчета и изображения процесса 
оптимальной загрузки двух станков 


хххххяхххххххххххххххххкАкхххххххххххкхХхххххАХкХАХххХУХхКХКАХХКААХАХХ 


; Функция (DJON LT) обеспечивает расчет и графическое отображение 
; оптимальной загрузки двух станков (алгоритм Джонсона} 
;‚ Аргументы функции: 
; LT - список норм времени выполнения каждой операции на 
; двух станках ( (1 T11 T21) (2 T12 T22) (3 T13 Т23}...) 
; TIJ.. - время изготовления 94-го изделия на 1-м станке 
; Пример использования функции (DJON LT) 
; (DJON '((165) (242) (363) (456) (578) (647))) 
+ kkkkkkžákěkxěkěkěkkkkkkěkkkěkkkkkkkkkkkkkkžkkkěkkkkkkkkkkkkkkkkkkkžkkkěxk*ěkkkkkx*xx*ķ 
(DEFUN DJON (LT) 
(SETVAR "СМОЕСНО" 0)-; отключение эха команд 
(COMMAND "LIMITS" "0,0" "297,210") 
(COMMAND "ERASE" "ALL" "") 
(COMMAND “GTYLE" и" мп nga nqr nm nn nu nn) 
(SETQ TT ' (10 200) ; базовая точка ввода заголовка таблицы 
ВТ ' (10 190) ; базовая точка ввода данных в таблицу 
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I 0) 
(REPEAT 2 | ; цикл отображения исходных данных 
; и результатов = 

(ЗЕТУАВ "BLIPMODE" 0); отключение отображения маркера 
(ТР (= I 0) (COMAND "TEXT" TT "0" 

“Исходный порядок запуска изделий в производство") 

(COMAND "TEXT" "10,100" "0" 

“Оптимальный порядок запуска изделий в IPOM3BONCTBEO")) 


(SETQ ВТТ (POLAR ВТ (* PI 1.5} 40) ; точка ввода графика 
BT2 (POLAR ВТ1 (* PI 1.5) 20) ; точка ввода графика 
BTT BT2 
TD 0) 
(FOREACH EL LT ; цикл построения таблицы с данными 
(SETO N (NTE 0 EL) ; номер изготавливаемого изделия 
T1 (NTE 1 EL) ; время изготовления изделия на 1-м станке 
T2 (NTE 2 EL) ; время изготовления изделия на 2-м станке 
TD {+ TD T1 T2}} ; время для корректировки графика 
(KLETKA ВТ) ; вызов функции для изображения клетки 


(COMMAND "TEXT" (POLAR K4 (/ РТ 9) 4) "0" (ТТОА М)} 
(КРЕТКА K4) 
(СОММАМО "TEXT" (POLAR K4 (/ PI 9) 4) "0" (RTOS T1 2 2}}. 
(KLETKA Ка) 
(COMMAND "TEXT" (POLAR K4 (/ PI 9) 4) "0" (RTOS T2 2 2}) 
(SETQ BT (POLAR BT 0 30)) ; базовая точка следующей клетки 
) 
(SETQ — КМ (/ 400 TD) ; определение коэффициента 
; масштабирования 
T1 (NTH 1 (NTH 0 LT)) ; время изготовления 1-го изделия 


T1 (* T1 KM) ; скорректированное время 
BT2 (POLAR ВТ2 0 711)) ; начало изображения 2-го графика 
(ЗЕТУАР "BLIPMODE" 1) - ; ввод маркера на графиках 
(FOREACH EL LT ; цикл отображения графиков 
(SETO N (NTE ОЕ) ; номер изготавливаемого изделия. 
T1 (NTH 1 EL) ‚ время изготовления изделия 
; на 1-м станке. 
T1 (* T1 KM) ; скорректированное время изготовления 
T2 (NTH 2 EL) ; время изготовления изделия 
; на 2-м станке 
T2 (* T2 KM) ; скорректированное время изготовления 
ВТК] (POLAR ВТ1 0 T1)) ; точка окончания 


| | ; изготовления изделия 
(COMMAND "PLINE" ВТ1 "W" 2 2 ВТК1 "") ; 1-й график 
(SETQ ВТ1 BTK1 
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ВТТ2 (POLAR ВТК1 (* РТ 1.5} 20)) 
(IF (>= (NTH 0 ВТТ2) (NTH 0 BT2)) (SETQ ВТ2 BTT2)) 
(SETQ BTK2 (POLAR BT2 0 T2)) x 
(COMMAND "PLINE" BT2 "W" 2 2 BTK2 "") ; 2-й график 
(SETQ BT2 BTK2) 
} 
(ЗЕТО TPP (DISTANCE BTT ВТК2) 
TPP (/ TPP KM}) 
(COMMAND "TEXT" (POLAR BTT (* PI 1.5) 15) "О" (STRCAT 
"Общая продолжительность работ TPP = " (RTOS TPP 2 2)}) 
(SETQ BT ' (10 90) | ; точка ввода текста для 
; оптимального варианта 
L1 '() 
L2 '(} 
ММ (LENGTH БТ) } 
(REPEAT ММ 
(ЗЕТО TMIN 1000.) 
(FOREACH EL LT 
(SETQ T1 (NTH 1 EL) 
T2 (NTH 2 EL}) 
(IF (< T1 TMIN) (5ЕТО TMIN T1 NS 1)) 
(IF (< T2 TMIN) (SETQ TMIN T2 NS 2)) 
) 
(FOREACH EL LT 
(SETQ T1 (NTH 1 EL) 
T2 (NTH 2 EL}) 
(IF (AND (= T1 TMIN) (/= T1 T2) (= №1)) 
(SETQ L1 (CANS EL L1) LT (DEL EL ЬТ))) 
(IF (AND (= T2 TMIN) (= №2)} 
(SETQ L2 (CONS EL L2} LT (DEL EL ЁТ)})}) 
) | 
(SETQ LT (APPEND L1 L2) ; новый порядок запуска изделий 
' I (+ I1}) ; в Производство 
) 
(COMMAND "ZOOM" "ALL" ""} 
) 
; Функция изображения клетки таблицы 
(DEFUN KLETKA (К1) 
(ЗЕТО K2 (POLAR K1 0 30) 
K3 (POLAR K2 (* PI 1.5) 10) 
K4 (POLAR K1 (* PI 1.5) 10)) 
(COMMAND "LINE" K1 K2 КЗ K4 К! ""} 
} 


пог ла в ‹ 
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дения зпемечта EL в конец списка LT 
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лемента EL из списка LT 


{ 


(125) (242) (363) (456) (576) (647))) ; вызов функции 
Результат выполнения функции (DJON...) представлен на рис. 6.28. 


Исходный порядок запуска изделий в производство 


1 _2 ‚3 4 
6.00 400 6.00 _ |5.00 ) 
500 |200 _| 3.00 6.00 6.0 


Общая продолжительность работ ТРР = 41.00 


Оптимальный порядок запуска изделий в производство 


64 hl Е 
400 |500 | 7.00 | 6.00 
700 |600 |600 |500 |300 


Общая продолжительность работ ТРР = 34.00 


Рис. 6.28. Оптимизация запуска изделий в производство 


ОТЛАДКА И СОЗДАНИЕ 
ПРИЛОЖЕНИЙ В СРЕДЕ 
VISUAL LISP 


Отладка программ 


в среде Visual USP ...................... 300 
Создание приложений 

в среде Visual USP ...................... 321 
Встроенные функции 

Visual USB asi ИКИ 332 


В этой главе описывается отладчик 
Visual LISP, приемы создания автоном- 
ных приложений в среде Visual LISP. 
Здесь же рассматриваются встроен- 
ные функции интегрированной среды 
Visual LISP. 
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7.1. Отладка программ в среде Visual LISP 


Отладка — как правило, наиболее трудоемкая стадия в разработке любой 
программы. Visual LISP включает мощный отладчик, который позволяет: 

* запустить программу Trace (трассировка программы); 

* отслеживать значения переменных во время выполнения программы; 

° просмотреть последовательность значений выполняемых выражений 
(Функций); 

° просмотреть значения параметров, используемых внутри функцио- 

нальных обращений; 
* запустить программу прерываний Interrupt; 

* производить пошаговое выполнение программы; 

* просмотреть содержимое стека. 

Для решения этих задач Visual LISP имеет следующие средства: 

e Break loop mode (Режим прерываний в цикле), который позволяет 
останавливать выполнение программы в определенных точках, про- 
сматривать и изменять значения объектов (переменных, символов, 
Функций и выражений) во время прерывания; 

e Inspectors (Инспектора), которые позволяют получать детализиро- 
ванную информацию об объектах в окне Inspector dialog Window 
(Диалоговое окно просмотра); 

e Watch Window (Окно наблюдений), которое позволяет наблюдать 
значения переменных во время выполнения программы. Содержание 
окна наблюдений Watch Window модифицируется автоматически; 

e Trace Stack Facility (Средство трассировки стека), которое позволяет 
просматривать функциональный стек вызовов — механизм, с помощью 
которого Visual LISP записывает последовательность выполнения 
функций; 

e Trace Facility (Средство трассировки), которое позволяет регистриро- 
вать обращения и значения отслеживаемых функций в специальном 
окне Тгасе (Трассировка). 

Отладчик может приостановить выполнение программы до или после 

выполнения любого выражения. 

Управлять отладкой можно из разных мест Visual LISP, включая тексто- 

вый редактор, окно консоли, различные меню и кнопки инструментальной 
панели Debug (рис. 7.1). 


[обл 20 


Рис. 7.1. Кнопки инструментальной панели Debug 


oO 
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a PRIYETIW. LSP 
(DEFUN PRIUET () 
(SETQ IMY (GETSTRING “”\п Введите Ваше иня ! --- ")) 
( COMMAND ra 
“STYLE” “” “TIMES МЕШ ROMAN CYR” "60” T3” S E x 
“TEXT” "20,1500" “O” (STRCAT “AOPOTON “ IMY ” t?!?”) á 
“TEXT” “3.106” “207” ” ЯВТОР BAC ПРИВЕТСТВУЕТ “ „< 
“TEXT” “250,50” “0” ” УСПЕХЯ BAM 11!" ос „= 
| “ZOOM” “A” F Текст приветствия_будет_во весь экран... s 
| ) a 


| ) 
Y 
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7, Ал’ Дл o N E S a A a a a a 
Ki |: 08. E 290. № М x a ‚9 в 1 E $ : к a р E: " № 4 s. E = 


Рис. /.2. Окно текстового редактора 


Рассмотрим процесс установки точки прерывания, например, в начале 
второй строки программы PRIVET1W.LSP в текстовом окне редактора 
(рис. 7.2). 

"т | ПЦереместите курсор в позицию открывающейся круглой скобки во 
azi второй строке файла РЮМУЕТ1М/. 1$ Р. Щелкните по кнопке Toggle 

breakpoint (Установить/удалить точку прерывания) на инструмен- 
тальной панели Debug (Отладка) или выберите пункт Toggle break- 
point (Установить/удалить точку прерывания) падающего меню 
Debug (Отладка) либо нажмите комбинацию клавиш Alt+D. Во 
всплывающем подменю выберите пункт Toggle breakpoint (Устано- 
вить/удалить точку прерывания) или нажмите клавишу Е9. На экра- 
не в позиции курсора появится точка прерывания (красный прямоу- 
гольничек), если ее там не было. Если данная точка там была, она, 
соответственно, исчезнет. | 

Когда курсор находился не в позиции круглой скобки, возможны два 

варианта: 

e курсор находился до скобки или = 
после скобки, а далее есть еще 
вложенные функции. В таком (3) се! break point here? 
случае на экране появится окно 
Question (Вопрос) с вопросом 
Set break point here? (Устано- 
вить точку прерывания 34€Cb?), 
как показано на рис. 7.3. . Рис. 7.3. Окно Question 
Вам необходимо щелкнуть по кнопке Да (Yes) или Нет (№). В noc- 
леднем случае позиция курсора изменится; 

* курсор находился внутри выражения, в котором далее вложенных 
функций нет. В таком случае na экране появится окно Stop (Оста- 
новить) с предупреждением Illegal position for break point (Недо- 
пустимая позиция для точки прерывания), как показано на рис. 7.4. 
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[а < Щелкните по кнопке Load active edit 


Stop 
window (Загрузить текст активного | 


окна редактирования) на инструмен- | xX. Меча! position for break point 
тальной панели Tools (Инструмен- | 
ты) или выоерите пункт Load Text in 
Editor (Загрузить текст из редакто- 
ра) падающего меню Tools (Инстру- 
менты). На экране появится окно 
консоли Visual LISP (puc. 7.5). 


; 1 form loaded from #<editor “С:/МОИ QOKYMEHTbI/PRIVETIWU.LSP™> 
_$ 


Рис. 7.5. Окно консоли Visual LISP 


Загрузите и выполните в окне консоли Visual LISP функцию (PRIVET). 

Во время ее выполнения отладчик возвращает пользователя в окно тек- 
стового редактора и останавливает выполнение функции (PRIVET...) в точ- 
ке прерывания, которую пользователь установил ранее, выделив все выра- 
жение (рис. 7.6). 

Можно последовательно продвигаться по программе, выполняя одно 
или несколько выражений до установленной точки прерывания. Для этого 
щелкните по кнопке Step Into (Шаг внутрь) или выберите одиоименный 


DS PRVETIWLSP REJE 
( DEFUN РАТЩЕТ Г) =] 

“SETQ IMY (GETSTRING “”\п Введите Ваше имя f --- “ 

( COMMAND » 
“STYLE” “”” “TIKES NEU ROMAN CYR” “ББ” “3 “e me smu um ' 
“TEXT” “28.1560” “9” (STRCAT “ДОРОГОЙ “ IMY ” 111”) S 
“TEAT” 73,100” "20" ^ НЕТОР BAC ПРИВЕТСТВУЕТ 
“TEXT” “250.50” “OV “ УСПЕХЯ BAM 111" | 
“260м“” “|” ; Текст приветствия. будет во весь ‘экран’ \ e 

) | 
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Рис. 7.6. Окно текстового редактора 
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> PRIVETIW.LSP 
| (DEFUN PRIVET (ù) ^ 
(БЭС СЕТЗТАТМС "\п Введите Ваше имя ! --- ") 
( COMMAND „а 
“STYLE” “” “TIMES NEW ROMAN CYR“ “60” “3” NN omo mm te A 
“TEXT” “20,1500 “0” (STRCAT “ДОРОГОЙ “ IMY “ 1'!”) ‘> 
“TEXT” “3.100” “207” “ ЯВТОР BAC ПРИВЕТСТВУЕТ J 
“TEXT” “250.50” “07 “ ЧУСПЕХЯ BAM fr” . Ra 
“ZOOM” “A” ; Текст приветствия будет во весь экран __ Pa 
) Pi 
| ) Е 


оз из ‚№ tE 22S ERIR} а о ке | 
чт, ючен вх в "s r e i я 12 
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Рис. 7.7. Окно текстового редактора 


пункт из всплывающего меню Debug (Отладка) (Alt+D). Чтобы вызвать. 


пункт Step Into (Шаг внутрь), можно также нажать клавишу F8. Выполне- 
ние программы начинается и останавливается перед выполнением внут- 
реннего выражения. 

Konka Step indicator (Индикатор шага) последняя на инструментальной 
панели Debug (Отладка). Она находится в активном положении, когда вы 
просматриваете программу по шагам. Символ на кнопке указывает на ос- 
тановку перед открывающей круглой скобкой. 

Щелкните по кнопке Step Into (Шаг внутрь) снова. Активизируется 
система AutoCAD и в командной строке AutoCAD появится запрос: 

Command: 

Введите Ваше имя ! --- | 

Наберем, к примеру, имя Евгений и нажмем клавишу Enter (Ввод). Ar- 

тивизнруется система Visual LISP, и мы снова вернемся в текстовое окно 
редактора, однако курсор будет находиться уже в конце выполненной yn- 
Kuun. Щелкнем по кнопке Step Into (Шаг внутрь) еще раз, и курсор nepe- 
местится в конец всего выражения. Щелкнем по кнонке Step Into снова, 
и курсор переместится в начало следующего выражения (рис 7.3). 


Y РАМЕТ1М/ ЕР х 
(DEFUN РВТУЕТ () < 

| SETQ IMY (GETSTRING “\п Езедите Ваше ина f --- “)}) 

( COMMAND 

| “STYLE“ “7 “TIMES МЕЦ ROMAN CYR” “60” “3e =~ me ~e 

| “TEXT” “20,1500” "O" ($ТАСАТ “ДОРОГОЙ " ТУ “ pp" 

| “TEXT” “3,160” “29” “ ABTOP BAC ПРИВЕТСТВУЕТ 

| “TEXT” “250,50” “0” “ ЧУСПЕХЯ BAM ???' 

“ZOOM” “Я” ; Текст приветствия будет во весь экран 


` 
1 
4 м = y j 3 : - I Ps, A 2 viat ë 7 á P mæ ia 
3 у Ч Е * D * =i и =— к 2A è F- 


Puc. 7.8. Окно текстового редоктора 


na bas E o p 
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Можно сделать шаг с выполнением всего выделенного выражения. Для 
этого следует щелкнуть по кнопке Step Over (Шаг через) или выбрать 
одноименный пункт из падающего меню Debug (Отладка) (Alt+D). Mox- 
но также нажать комбинацию клавиш Shift+F8. Кнопка Step Over позво- 
ляет оценить выражение со всеми вложенными выражениями, а затем ос- 
тановиться в конце всего выражения. При этом курсор перемещается 
в конец выражения. 
Результат этих действий можно увидеть, если активизировать систему 
AutoCAD путем нажатия кнопки Activate AutoCAD (Активизировать 
AutoCAD) или выбора одноименной команды падающего меню Window 
(МЕХ). 
При необходимости можно от- 
следить также значения каждого 
выражения. Чтобы проверить зна- 
чение последнего выполненного 
выражения, выберите пункт Watch 
Last Evaluation (Наблюдение noc- 
леднего значения) из падающего 
меню Debug (Отладка). На экране 
появится окно Watch (Окно на- Рис. 7.9. Окно значения переменной 
блюдений), содержащее значение "РАЗГУае” 
системной переменной *ГА$ЗТ-УАГОЕ*, в которой Visual LISP всегда co- 
храняет значение последнего выполненного выражения (рис. 7.9). 
Чтобы отслеживать значения переменных во время выполнения про- 
граммы, можно использовать окно Watch (Окно наблюдений). Для этого 
в окне текстового редактора, где открыт, например, файл РЫУЕТ1\М”/. 5 Р, 
важды щелкните по любому те- 

ни к переменной, кл 
7 3 65” £ 2 

меру, [МУ. 

Если щелкнуть по кнопке Add а 
Watch (Добавить наблюдение), |му-"Евгений” 
Visual LISP передаст имя nepe- 
менной [МУ окну Watch и отобра- 
зит текущее значение переменной 
в окне. Рис. 7.10. Окно наблюдений значений 

Допустим, окно Watch (Окно E переменных 
наблюдений) не было открыто, од- 
нако необходимо просмотреть значения переменной. В таком случае окно 
можно открыть, если выбрать пункт Watch Window (Окно наблюдений) 
из падающего меню View (Просмотр) Visual LISP 
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Установить наблюдение за ne- [рот EJ 


ременной можно и другим спосо- | 

бом. Щелкните по кнопке Add 1’ еси 
Watch (Добавить наблюдение) — [ен | 
это первая кнопка (с очками) 
в окне Watch. На экране появит- я 
ся окно Enter expression to watch Рис. 7.11. Окно ввода вырожения 
(Введите выражение для наблю- - _ длянаблюдений 

дений), как показано на рис. 7.11. 

В этом окне можно ввести имя переменной, которую необходимо про- 
смотреть. Самое близкое к курсору имя переменной Visual LISP копирует 
в окно автоматически. Если вы хотите просматривать другую переменную, 
введите ее имя. Visual LISP модифицирует зпачения переменных в окне 
Watch (Окно наблюдений) после выполнения каждого шага. 

Инициализировать шаг выполнения можно, если щелкнуть мышкой по 
кнопке Step Over (Шаг через) или дважды нажать комбинацию клавиш 
Shift+F8. Значение [МУ в окне Watch (Окно наблюдений) изменится (до 
выполнения оно было NIL). 

Чтобы продолжить выполнение программы до следующей точки преры- 
вания или до конца (если точек прерывания HET), щелкните по кнопке 
Continue (Продолжить) на инструментальной панели Debug (Отладка) 
или выберите пункт Continue (Продолжить) падающего меню Debug 
меню Visual LISP. 

Кроме установки точек прерывания Visual LISP обеспечивает следую- 
щие режимы управления выполнением программы: 

e Break Оп Error (Прерывание по ошибке) - активизирует автомати- 
ческое прерывание всякий раз, когда во время выполнения програм- 
мы возникает ошибка. Для включения этого режима необходимо вы- 
брать пункт Break Оп Error (Прерывание по ошибке) падающего меню 
Debug меню Visual LISP; 

e Stop Once (Остановка сразу) — заставляет Visual LISP осгановиться. 
когда выполняется самое первое выражение LISP Для включения это- 
го режима необходимо выбрать пункт Stop Once (Остановиться Cpa- 
зу) падающего меню Debug; 

e Break оп function entry (Прерывание на входе функции). Во время 
прерывания текст функции будет отображаться в специальном окне. 
При этом можно включить или выключить флажок Debug-On-Entry 
(Отладка на входе) в интерактивном диалоговом окие Symbol Service 
(Обслуживание символов) или поместить внутри программы псевдо- 
комментарии; 
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e Debug top-level mode (Режим отладки верхнего уровня) — позволяет 
управлять загрузкой программы из файла или из окна редактора. Пре- 
рывания происходят перед выполнением каждого выражения верхнего 
уровня (типа DEFUN). Для включения этого режима необходимо вы- 
орать пункт General Options (Общие параметры) всплывающего меню 
пункта Environment Options (Параметры среды) падающего меню 
Tools (Инструменты) главного меню Visual LISP. Затем щелкнуть по 
закладке Diagnostic (Диагностика) и убрать флажок в переключателе 
Оо not debug top-level (Не отлаживать на верхнем уровне). 

Обратите внимание, если режимы Debug top-level mode (Режим отлад- 
ки верхнего уровня) и Stop Once (Остановка сразу) включены, Visual 
LISP переходит в режим отладки каждый раз, когда загружается файл; 

e Animate (Оживить) — предполагает неоднократное использование 
команды Step Into (Шаг внутрь) с определенной задержкой. Окно pe- 
дактора в режиме Animate отображает выполняемые выражения, 
а окно Watch (Окно наблюдений) постоянно модифицирует значения 
переменных. Чтобы включить режим Animate, выберите пункт 
Animate (Оживить) падающего меню Debug (Отладка) главного меню 
Visual LISP. Когда режим Animate включен, режим Stop Once (Оста- 
новить сразу) игнорируется. 

Быстродействие анимации управляется значеннем задержки анимации. 
Для просмотра и установки задержки выберите пункт General Options 
(Общие параметры) из всплывающего меню пункта Environment Options 
(Параметры среды) падающего меню Tools (Инструменты) главного меню 
Visual LISP и щелкните по закладке Diagnostic (Диагностика). Время 3a- 
держки можно изменять в окошке Апипаёе delay (Задержка анимации). 

Самый простой способ начать отладку — выбрать пункт Stop Once (Ос- 
тановить сразу) падающего меню Debug (Отладка) главного меню Visual 
LISP Выполнение первого выражения LISP будет прервано. Продолжить 
выполнение программы можно с помощью команд отладчика. Кроме того, 
начать отладку можно путем установки точек прерывания, как было пока- 
зано ранее. Во время прерывания соответствующее окно редактора текста 
Visual LISP показывает текущее выражение LISP в точке прерывания. 
Маркер прерывания появится в окне консоли, используя которое, можно 
изменять и модифицировать программу, где произошло прерывание. 
В окне Watch (Окно наблюдений) можно также исследовать переменные. 

Когда программа AutoLISP выполняется без включения отладки, Visual 
LISP выполняет ее в режиме Тор Level (Верхний уровень) и Read-Eval- 
Print (Прочитать-Выполнить-Напечатать). В ходе выполнения выраже- 
ния в окне консоли Visual LISP отображается подсказка. 
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В случае если выполнение программы прерывается или приостанавли- 
вается, в окне консоли Visual LISP включается система управления npo- 
ходами. На экране появляется подсказка, которая начинается с числа, 
указывающего уровень прерывания. Например, когда прерывание возни- 
кает впервые, перед подсказкой появляется _ 1: 

Е | 

При выходе из состояния прерывания (например, после выдачи коман- 
ды "QUIT" (Выйти)), текущий Read-Eval-Print (Прочитать-Выполнить- 
Напечатать) цикл завершается, а предыдущий продолжается. Если значе- 
нне переменной изменяется в текущем цикле прерывания, оно будет 
использовано, когда выполнение продолжится. 

В Visual LISP существуют прерывания с продолжением (Continuable) 
и без продолжения (Noncontinuable). Продолжать выполнение можно 
после следующих видов прерывания: 

e режима Stop Once (Остановка сразу); 

e достижения функции, отмеченной для Debug оп entry (Отладка на 

входе); 

e достижения точки прерывания, установленной в программе; 

° щелчка по кнопке Pause; 

° режимов Step Over (Шаг черсз), Step Into (Шаг внутрь) или Step Out 

(Ular вне). | | 

Во время прерывания при активном окне консоли и при отражении 
в подсказке текущего уровня прерывания имеется доступ для чтения-за- 
писи ко всем переменным среды, в которой произошло прерывание. Когда, 
например, прерывание произошло внутри фуикции, содержащей несколь- 
ко локальных переменных, изменить их значения можно, если использо- 
вать в строке подсказок в окне консоли функцию присваивания (ЗЕТО...). 

Управлять последующим выполнением программы при остановке вы- 
полнения программы в точке прерывания можно, если выбрать одиу из 
следующих команд падающего меню Debug (Отладка) или щелкнуть эк- 
вивалентную кнопку на панели инструментов: 

a; Reset to the top level (Возвратить на верхний уровень) — завершить 
~= прерывание и возвратиться на самый верхний уровень Веа4-Еуа|- 
Print (Прочитать-Выполнить-Напечатать): 
a Quit current level (Выйти из текущего уровня) — завершить прерыва- 
-- ние и возвратиться на один уровень вверх (уровень прерывания либо 
уровень Read-Eval-Print (Прочитать-Выполнить-Напечатать)); 
|2 Continue (Продолжить) — продолжить выполнение программы с точ- 
3 ки прерывания. 


5 рана 
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Пункты меню, которые начинаются со Step (Шаг), позволяют управ- 
лять пошаговым выполнением выражения: 


| T Step Over (Шаг через) — с выполнением всех вложенных выражений; 


| © Step Into (Шаг внутрь) — с заходом в первое вложенное выражение; 


D Step Out (Шаг вне) — с переходом во внешнее выражение. При этом 
выполняются все остающиеся вложенные выражения. 

После выхода из цикла прерывания к верхнему уровню консоли под- 
сказка консоли возвращается к ее первоначальному виду (без числового 
префикса). | 

Точка прерывания позволяет отмечать позицию в программе, в которой 
выполнение программы должно быть прервано. Устанавливать прерыва- 
ния можно до или после анализируемых выражений. 

Точки прерывания могут быть установлены только из окна текстового 
редактора Visual LISP Чтобы установить или удалить точку прерывания, 
переместите курсор в позицию, в которой следует остановить выполнение 
программы. Если необходимо остановить выполнение перед открывающей 
скобкой выражения, поместите курсор слева от выражения, щелкните 
кнопку Toggle breakpoint ( Установить/удалить точку прерывания) на HH- 
струментальной панели Debug (Отладка) или нажмите клавишу F9, что- 
бы установить точку прерывания. Для установки точки прерывания выбе- 
рите пункт Toggle breakpoint (Установить/удалить точку прерывания) из 
всплывающего меню Debug (Отладка) главного меню Visual LISP или 
щелкните правой кнопкой мышки и выберите пункт Toggle breakpoint 
(Установить/удалить точку прерывания) из всплывающего контекстного 
меню. Toggle breakpoint работает как переключатель «вкл\выкл». 

Если курсор помещается в неопределенную позицию, например, в сере- 
дину выражения, Visual LISP переместит курсор к самой близкой круглой 
скобке, и на экране появится запрос Set break point here? (Установить TOY- 
ку прерывания здесь?). 

Когда вы согласны с местом установки точки прерывания, введите Yes 
(Да) либо № (Нет), если хотите установить точку прерывания сами. 

Позицию каждой точки прерывания Visual LISP отмечает цветным nps- 
моугольником, так что различать точки прерывания в программе неслож- 
но. По умолчанию активные точки прерывания отмечены красным цве- 
том, который можно изменить. Для этого выберите пункт Configure 
Current... (Текущая конфигурация) всплывающего меню пункта Window 
Attributes (Параметры окна) падающего меню Tools (Инструменты). На 
экране появится диалоговое окно Window Attributes (Параметры окна), 
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Рис. 7.12. Окно обслуживания точки прерывания Breakpoint service 


где в раскрывающемся списке следует выбрать пункт (строку) ВРТ- 
АСТТУЕ, а затем желаемый цвет. 

При использовании нескольких точек прерывания впутри файла полез- 
но отключить на время одну или большее количество точек прерывания. 
Однако для использования точки прерывания в дальнейшем ее позицию 
необходимо оставить. Это сокращает время на удаление и восстановление 
точек прерывания. | 

Чтобы отключить точку прерывания, установите курсор на маркер точки 
прерывания и щелкните правой кнопкой мышки. Из всплывающего меню 
выберите пункт Breakpoint service (Обслужить точку прерывания). Visual 
LISP покажет дналоговое окно обслуживания точки прерывания Break- 
point service (Обслужить точку прерывания), показанное на рис. 7.12. 

Чтобы временно отключить точку прерывания, щелкните кнопку Dis- 
able (Отключить) в окне Breakpoint service (Обслужить точку прерыва- 
ния). При отключении Visual LISP изменяет цвет маркеза точки прерыва- 
ния. По умолчанию ои отмечает заблокированные точки прерывания 
синим цветом, который также можпо изменить. Для этого выберите пункт 
Configure Current... (Текущая конфигурация) всплывающего меню пунк- 
та Window Attributes (Параметры окна) падающего Merio Tools (Иистру- 
менты). На экране появится дналоговое окно Window Attributes (Пара- 
метры окна). В этом окне в раскрывающемся списке выберите пункт 
(строку) ВРТ-ПТЗАВГЕ, а затем желаемый цвет. 

Пункт ВгеаКрошё; Window (Окно точек прерывания) падающего меню 
View (Просмотр) позволяет увидеть список всех точек прерывания, в иа- 
стоящее время определенных Visual LISP (рис. 7.13). 

Окно ВгеаКрошё$ содержит точки прерывания всех файлов, которые 
редактируются в Visual LISP, а не только файла из активного окна penak- 
тора. В примере на рисунке 7.13 указан один файл, потому что только он 
в настоящее время открыт. Установку точек прерывания можно изменять 
в любом количестве открытых файлов. 

Каждая строка в окне Breakpoints содержит имя файла, имеющего точ- 
ку прерывания, и указывает расположение этой точки. Знак + или — опре- 
деляет, активна указанная точка прерывания или заблокирована. 
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Рис. 7.13. Окно списка точек прерывания 


Диалоговое окно позволяет удалять все точки прерывания сразу, редакти- 
ровать или отображать одну из них. С помощью кнопки Show (Показать) 
можно отображать позицию точки прерывания. Кнопка Edit (Редактиро- 
вание) открывает диалоговое окно обслуживания точки прерывания 
Breakpoint service (Обслуживание точки прерывания) после выделения 
редактируемой строки (см. рис. 7.12). 

Устанавливать точки прерывания можно до либо после загрузки про- 
граммы. Однако, если вы изменяете текст в программе после ее загрузки, 
а затем добавляете точку прерывания, то данная точка будет действовать 
только после перезагрузки программы. 

Установки точек прерывания остаются в силе в течение всего сеанса 
редактирования Visual LISP. Сохранить установки для других сеансов 
можно с помощью команды Save Settings (Сохранить установки) падаю- 
wero меню Tools (Инструменты). 

Точки прерывания теряются автоматически в том случае, если выпол- 
няются следующие действия: 

e удаление фрагмента программы, содержащего точку прерывания; 

e изменение файла не в среде редактора Visual LISP (например, с nomo- 

щью записной книжки); 

e применение форматирования Visual LISP к фрагментам программ, 

содержащим точки прерывания. 

Visual LISP обеспечивает почти безграничный доступ к символам и HX 
значениям из любого места программы с помощью следующих окон: 
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e Watch (Окно наблюдений), которое отображает текущее значение 
любого набора переменных; 

e Trace Stack (Трассировка стека), которое отображает самую современ- 
ную иерархию обращения. На любом уровне стека вы можете просмат- 
ривать соответствующий код, код вызова, локальные переменные и 
другие элементы; 

e Symbol Service (Обслуживание символов), которое отображает теку- 
щее значение символа так же, как и его текущих флажков. Вы можете 
изменять значение и/или флажки; 

e Inspect: (Проверка), которое проверяет любой элемент выражения 
AutoLISP; 

e Frame binding window (Рамка, связывающая окна), которая связыва- 
ет окна и отображает значения всех локальных переменных. 

Чтобы получить возможность просматривать значения переменных, не- 
обходимо добавить переменную в окно Watch (Окно наблюдений). Когда 
курсор находится на имени переменной, двойным щелчком мышки выде- 
лите ее в любом контексте (в окне редактора, консоли и т. д.) и щелкиите 
по кнопке Add Watch (Добавить наблюдение) или выберите пункт Add 
Watch (Добавить наблюдение) падающего меню Debug (Отладка). Mox- 
но также выбрать пункт Add Watch из контекстного (всплывающего) 
меню. Для этого нажмите правую кнопку мышки, когда курсор находится 
на имепи переменной. На экране появится диалоговое окно Enter 
expression to watch (Введите выражение для наблюдений) с введеиным 
именем переменпой. Щелкните по кнопке ОК (Okay — хорошо). 

Если окно Watch (Окно наблюдений) уже активно, вы можете добавить 
дополнительные перемениые к списку Watch, щелкая по кнопке Add 
Watch (Добавить наблюдение) — кнопке с очками на инструментальной 
панели в окне Watch (Окно наблюдений). 

Когда Visual LISP не сможет определить, какая переменная вас заинте- 
ресовала, на экране появится диалоговое окно Enter expression to w... 
(Ввод выражения для наблюдений). Введите в текстовом поле раскрыва- 
ющего списка (Drop-dawn list) нужное имя переменной и щелкните по 
кнопке ОК. 

Инструментальная панель окна Watch (Окно наблюдений) содержит 
следующие кнопки: 

e Add Watch (Добавить наблюдение) — вызывает пункт Add Watch, что- 
бы добавить новую переменную в окно Watch; эта переменная может 
быть выбрана в любом активном текстовом окне или напечатана в AHA- 
логовом окне Add Watch (Добавить наблюдение): 
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e Clear Window (Очистить окно) — очищает окно Watch (Окно наблю- 
дения); 
e Sort expressions (Отсортировать выражения) — сортирует переменные 
в окне Watch (Окно наблюдений) в алфавитном порядке по имени; 
e Copy to Trace/Log (Копировать в окно Trace или Log) — позволяет 
сохранять содержимое диалогового окна Watch (Окно наблюдений) 
в окне Trace (Трассировка) или файле Log (Файл регистрации). 
Для работы с переменными и их значениями ›=- Е 
в окне Watch можно использовать контекстное |} Сорухаше 
меню, которое вызывается щелчком правой KHON- ; рРицаше 
ки мышки (рис. 7.14). = 


j ` Symbol... 
Контекстное меню окна наблюдений Watch co- в Е 

держит следующие пункты: Е 
e Inspect value (Проверить значение) — npo- CENOV KOM ARET 

смотреть значение; Рис. 7.14. Контекстное меню 
e Copy value (Скопировать значение) — скопи- окна Watch 


ровать значение выбранной переменной в пе- 
ременную системы *ОВГ; 

e Print value (Напечатать значение) — напечатать значение переменной 
в окне консоли с одиночной кавычкой (') впереди; 

e Symbol... (Символ) — вызвать дналоговое окно обслуживания симво- 
лов для выбранной переменной; 

e Apropos... (Поиск по фрагменту) — используя имя выбранного симво- 
ла или нескольких символов, вызвать диалоговое окно Аргороз... как 
параметр поиска полного имени; 

e Remove from Watch (Удалить из окна наблюдений) — удалить выбран- 
ную переменную из окна наблюдений Watch. 

Visual LISP имеет специальное средство отладки Trace Stack (Трасси- 
ровка стека). Трассировка стека — история выполнения функций внутри 
программы. Структура стека часто упоминается как LIFO — Last In, First 
Out (Последний вошел, первый вышел). 

Трассу стека полезно исследовать при двух следующих условиях: 

e когда программа находится в состоянии ожидания, например, во вре- 

мя контрольной паузы; 

e после того, как произошла ошибка. 

Допустим, в файле PRIVET1W.LSP во второй строке пропущена вторая 
закрывающая скобка. После загрузки и запуска на исполнение в окне кон- 
соли появится сообщение: malformed list оп input (плохо сформированный 
список на вводе), как на рис. 7.15. Это означает, что имеющихся закрыва- 
ющих круглых скобок недостаточно. 
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& Visual LISP Console Pif E3 
; xxx ERROR: malformed list on input Si 
те О ИННЫ y 


Рис. 7.15. Окно консоли 


Чтобы увидеть состояние функцио- [тури 
нальных вызовов до того, как ваша gA 
программа завершится из-за ошибки, | 
выберите пункт Error trace (Трасси- АН -— Нан 
ровка ошибки) падающего меню View 
(Просмотр). На экране появится диа- 
логовое окно Error trace (`Трассиров- 
ка ошибки), как показано на рис. 7.16. 
Окпо Error trace используется Рис. /.16. Диологовое окно Error trace 
Visual LISP чтобы запомнить выход из 
вложенного ряда выражений. Изучая 
трассировку, можно видеть, что проис- p - 
ходило внутри программы в процессе 
се выполнения, во время или сразу “ 
после того, как она завершилась по |<1>:ВРЕАК-РОМТ 
Snore: [2] (HANOI 1 "1" "3" "2") 
3] (HANOI 2 "1" "2" "3") 
Чтобы наблюдать состояние функ- WEINE 
ционального стека вызовов во время [|[5] (HANOI 4 "1" "2" "3") 
прерывания, выберите пункт Тгасе ый opa 
Stack (Трассировка стека) падающего | 
меню View главного меню Visual LISP 
или щелкните по кнопке Trace (Трас- 
сировка) — кнопке с отпечатками сле- 
дов ног. На экране появится диалоговое окно Trace Stack (Трассировка 
стека), как показано на рис. 7.17. 
Окно Trace Stack включает функцию (она называется фреймом) для OT- 
слеживания стека функции. Второй элемент, или фрейм в стеке следа, под- 
свечен. 


Рис. 7.17. Диологовое окно Trace Stack 
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Числа [2], [3], ... - номера элементов в стеке. п изресеи тои 
Чтобы получить подробную информацию OTHO- (Рио 
сительно элемента в стеке следа, выделите элемент |’ Eunction symbol 
H щелчком правой кнопки мышки вызовите KOH- |- Copy 
текстное меню. = Local variables 
Активные элементы, доступные в контекстном "$ Source position: 


меню. зависят от типа выбранного элемента стека. 
Контекстное меню включает следующие команды: 
e Inspect (Проверить) — вызов диалогового окна 
проверки Inspect (Проверить) выделенного 
элемента стека: 
e Print (Печатать) — отображение в окне консоли выделенного элемен- 
та стека в виде списка. Например, выделенный на рис. 7.17 элемент бу- 
дет отображен следующим образом: 


р р 


Call point source 


Puc. 7.18. Контекстное 
меню выделенного 
элемента окна трассы стека 


e Function symbol (Имя функции) — вызов диалогового окна Symbol 
Service (Обслуживание символов); 

e Copy (Копировать) — создание копии выделенного элемента трассы 
стека в системной переменной *ОВ]*; 

e Local variables (Локальные переменные) — отображение окна Frame 
Binding (Рамка связывания) для просмотра значений локальных TIC- 
ременных во время выполнения функции; 

e Source position (Исходная позиция) — отображение текстового окна 
с исходным текстом с текущей позиции выделенного элемента, если 
он там имеется, и наоборот; 

e Call point source (Вызвать исходную точку) — показ позиции выделен- 
ного элемента. 

Допустим, первая строка программы выглядит следующим образом: 

(DEFUN PRIVET (/ IMY) 

Отслеживать значения локальной перемен- 
ной [МУ можно во время выполнения функции 
(PRIVET...) в окне Frame binding (Рамка свя- 
зывания), которое представлено на рис. 7.19. 
Для этого необходимо выбрать пункт Local 
variables (Локальные переменные) контекстно- 
го меню выделенного элемента окна трассы сте- 
ка Trace Stack. 

Если щелкнуть правой кнопкой мышки в окне Frame binding, Visual 
LISP отобразит контекстное меню. | 


J Frame binding [2]: Ш 


PMY = "Евгений" _ 


Рис. 7.19. Окно Нате binding 
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‚ Меню содержит следующие пункты: . Ипзрес Ва 
e Inspect (Проверить) — вызов диалогового окна для Ри 1 
просмотра выделенного значения; E Symbol k) 
e Print (Печать) — отображение выделенного значения Hi Copy a] 
В OKHC КОНСОЛИ; „г Add to Watch = 
e Symbol... (Символ) — вызов диалогового окна для Pae 790 
‚ обслуживания выделенного символа. Контекстное меню 


e Copy (Копировать) — создание копии выделенного окна Frame binding 

значения в системной переменной *ОВ}]*; 

e Add to Watch (Добавить для наблюдения) — добавление выделенной 

` переменной в окно Watch (Окно наблюдений). 

Когда выполнение программы прерывается из-за ошибки, выберите 
пункт Error Trace (Трассировка ошибки) падающего меню View (Про- 
смотр) для просмотра состояний функциональных вызовов до прерывания. 

Инструментальная панель в окне стека Trace (Трассировка) содержит 
две кнопки: 

e Refresh (Освежить) — освежить содержимое окна стека Trace (Трас- 

сировка); 

e Copy (Скопировать) — скопировать содержимое окна в окно Trace 

(Трассировка) или файл регнстрации. 

В процессе отладки для упрощения доступа к различным возмож- 
ностям отладчика очень часто используют диалоговое окно Symbol 
Service (Обслуживание символов). Чтобы открыть диалоговое окно 
Symbol Service, необходимо: 

° выделить группу символов в текстовом окне редактора или в окне 
консоли; 

° выбрать пункт Symbol 
Service (Обслуживание 
символов) падающего 
меню View (Просмотр) 
главного меню Visual 
LISP или щелкнуть по 
кнопке Symbol Service 
(Обслуживание симво- 
лов) на инструментальной панели Debug (Отладка). На экране no- 
явится диалоговое окно ввода имени символа Enter symbol name: 
(Ввод имени символа), показанное на рис. 7.21. Выделенная группа 
символов автоматически появляется в текстовом поле раскрываю- 
щегося списка в окне ввода имени символов Enter symbol name: 
(Введите имя символа); 


(U Enter symbol name: 


Puc. 7.21. Окно ввода имени символа 
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° щелкнуть по кнопке ОК ЕТ xi 


(ОКах — хорошо). “Е 
На экране появится диалого- 
вое окно Symbol Service (Об- 
служивание символов), пока- 
занное на рис. 7.22. уве: 
Диалоговое окно Symbol Service _[“ОЗОВА @029ddca0 PRIVE T> Ooo o 
(Обслуживание символов) содержит: Flags: — 
° инструментальную панель; 
e текстовое поле Мате (Имя) для |F DebugonEnty Г Ехройю ACAD 


ввода или изменения символов; z 
текстовое поле Value (Значе- | 
ет X% <> E O % fà мы г: å и: = 5 5 и 7 


ние). в котором отображается 
значение символа или его Ha- Рис. 7.22. Диалоговое окно Symbol Service 
чальная подстрока; [Обслуживание символов] 

e раздел Flags (Флажки) для 
включения/выключения атрибутов символа. 

Значение отображаемого символа можно изменить путем ввода нового 
значения в текстовом поле Value (Значение) и выбора кнопки ОК. Visual 
LISP вычислит и присвоит новое значение символу. 

Когда флажок Protect assign (Защитить присвоение) включен, поле 
Value (Значение) используется только для отображения значения. 

Инструментальная панель Symbol Service (Обслуживание символов) 
содержит следующие кнопки: 

e Watch (Понаблюдать) — добавить символы в окно Watch (Наблюде- 

ний); 

e Inspect (Проверить) — просмотреть и проверить значения символа; 

e Show Definition (Показать определение) — открыть окно текстового 
редактора, содержащего функцию, и выделить ее; | 

e Help (Помощь) — отображение информации из файла Help Visual 
LISP, если символ является именем встроенной функции. 

Диалоговое окно Symbol Service (Обслуживание символов) позволяет 
задавать атрибуты символам с помощью следующих переключателей: 

e Trace (TR) (Отслеживать) — отслеживание указанной пользователем 
функции, имя которой введено в текстовое поле Мате (Имя). Исполь- 
зуется только с именем функции; 

e Protect assign (РА) (Защитить присвоение) — защита от измепения 
значения символа. Например, символ PI — Protect assign — защищен- 
ный символ. Все символы, которые являются именами встроенных 
функций AutoLISP, защищены от изменения по умолчанию; 


Smis PEEN оф с +1 


Г’ Trace r Protect Assign 
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e Debug оп Entry (Отладка на входе) — установка точки прерывания при 
каждом вызове. Действует только во время выполнения функции, но 
не во время ее загрузки или определения. Обратите внимание, что 
Visual LISP игнорирует переключатель Debug оп Entry для всех 
SUBR, ЕХЗОВК и ЕХКХЗОВК символов; 

e Export to ACAD (EA) (Экспорт в AutoCAD) — определение функции, 
связанной с символом, как внешней подпрограммы AutoLISP; 

Для облегчения отладки используется специализированное средство — 
Inspector (Проверка), которое позволяет просматривать, исследовать и из- 
менять объекты AutoCAD и AutoLISP. С помощью этого эффективного 
и доступного в использовании средства можно осуществить просмотр: 

° любых объектов, доступных в AutoLISP (например, списков, чисел, 
строк и переменных); 

° нарисованных объектов AutoCAD; 

° выделенных наборов примитивов AutoCAD; 

e сложных структур данных. 

Inspector (Проверка) создает окно для любого объекта, который подвер- 
гается проверке. 

Окна Inspector имеют одинако- [реет 
вый вид и содержат заголовок окна, [”Евгений“ 
например, Inspect: STR (рис. 7.23), 
строку объекта (под заголовком) 
и список элементов объекта (воз- 
можно, пустой). 

Допустим, вы запустили на вы- 
полнение файл PRIVET1W.LSP. 
На запрос в командной строке: Рис. /.23. Окно проверки строковой константы 

Command: Inspect: STR 
Введите Ваше имя ! - - - 


ввели, например, имя Евгений. Затем вы вернулись в окно текстового ре- 
дактора и выделили переменную 1МУ. После этого решили вызвать окно 
Inspect: (Проверить). Для этого щелкнули по кнопке Inspect (Прове- 
рить) — кнопке с изображением на ней микроскопа — или выбрали пункт 
Inspect... (Проверить) падающего меню View (Просмотр). В зависимости 
от типа выделенной переменной на экране появится соответствующее 
окно проверки (в нашем случае окно Inspect: STR (Проверка строковой 
константы), представленное на рис. 7.23). 

Заголовок окна [пзрес(: показывает тип проверяемого объекта, в данном 
случае STR (String — строковая константа). 
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Строка объекта (Object line) показывает напечатанное представление 
заданного объекта. 

Список элементов (Element list) отображает компоненты заданного 
объекта. Размер и содержание списка элементов меняются в зависимости 
от типа объекта. Каждый элемент списка имеет имя (оно заключено в квад- 
ратные скобки) и содержание. 

Строка объектов и строки списка элементов имеют их собственные свя- 
занные контекстные меню. 

Для различных типов объектов AutoLISP используются следующие 
виды списков элементов: 

e INT Inspector (Проверка целого числа), который представляет целое 

число в различных системах счисления; 

e REAL Inspector (Просмотр действительного числа) — этот список эле- 
ментов пустой; 

STRING Inspector (Просмотр строковой константы), который содер- 
жит символы строковой константы в определенной последовательно- 
сти. Каждый элемент списка может быть осмотрен как целое число; 
Symbol Inspector (Окно просмотра символов) — просмотр списка эле- 
ментов символа содержит 3 элемента: значение, имя и атрибуты; 
LIST Inspector — список элементов списка AutoLISP содержит 2 эле- 
мента: начальный элемент списка (эквивалент САК), список без перво- 
го элемента (эквивалент СОК) для всех случаев, когда СОК не NIL. 
File Inspector (Просмотр файла) — список элементов файла, который 
содержит имя файла и параметры его открытия; 

+ SUBR, EXSUBR и USUBR инспектора, которые содержат имя функ- 
ции, определенное функцией (DEFUN...) или указанное во времени 
загрузки; 

e ENAME Inspector (Проверка рисунков объекта) — просмотр списка 
подслисков, в которых сгруппированы по фуикциональному пазначе- 
нию все данные о примитиве AutoCAD - как геометрические, так и об- 
щие: слой, цвет и т. д. Подсписки отличаются друг от друга по специ- 
альным кодам формата DXF (Drawing eXchange Format — формат 
обмена рисунками). Каждый подсписок имеет две части: код DXF 
и данные. 

e PICKSET Inspector (Просмотр выбранных объектов) — просмотр 
списка выбранных объектов AutoCAD. 

Чтобы просмотреть объект, выделите имя объекта в любом контексте, 
выберите пункт Inspect (Проверить) падающего меню View (Просмотр) 
главного меню Visual LISP или щелкните кнопку Inspect на инструмен- 
тальной панели Debug (Отладка). Пункт Inspect (Проверить) также 
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доступен из ряда контекстных 
меню и диалоговых окон, напри- 
мер, окна Symbol Service (Обслу- 
живание символов). 

Для того чтобы просмотреть оп- 
ределение функции (РЕУЕТ...), 
выделите имя в окне текстового 
редактора, затем щелкните кноп- 
ку Inspect (Проверить) на инст- 
рументальной панели Debug 
(Отладка). На экране появится 
окно проверки функции пользо- 
вателя Inspect: USUBR, пред- 
ставленное на рис. 7.24. Рис. 7.25. Окно ввода выражения для проверки 

Если вы вызываете пункт 
Inspect, не выбирая имеии объекта, Visual LISP позволяет определить 
объект в окне ввода выражения для проверки Enter expression to inspect 
(Введите выражение для проверки) (рис. 7.23). 

Введите в текстовом поле раскрывающегося списка имя объекта или вы- 
ражение, которое хотите проверить, затем щелкните по кнопке ОК (Okay — 
хорошо), чтобы открыть окно [Inspector (Проверка), или нажмите кнопку 
Cancel (Отменить) для отмены действия. В раскрывающемся списке 
Visual LISP сохраняет 15 последних введенных выражений. Если интере- 
сующий вас объект или выражение находится в раскрывающемся списке, 
то для его проверки достаточно дважды щелкнуть по нему мышкой. 

В окне текстового редактора нельзя просмотреть выбранные выражс- 
ния, которые длиннее 256 символов. При выборе строки, количество сим- 
волов в которой превышает 256, компьютер запросит ввести имя объекта. 

Если вы зададите объект или выражение, которое Visual LISP не может 
обработать, на экране появится стандартное сообщение об ошибках 
АщоГ.ТЗР. В таком случае вы можете исправить выражение в диалоговом 
окне и попробовать обработать его еще раз. 

Ошибки, ставшие результатом обработки объекта, который вы ввели, HC 
могут быть исследованы из вложенного уровня прерывания, потому что 
все прерывания во время обработки заблокированы. При желании иссле- 
довать ошибку выберите пункт Еггог Тгасе (Трассировка ошибки) падаю- 
щего меню View (Просмотр) главного меню Visual LISP или скопируйте 
выражение с подсказки консоли и нажмите клавишу Enter (Ввод). 

Закрыть все окна Inspector (Проверка) можно, если выбрать пункт 
Inspectors (Проверки) всплывающего меню Close Windows (Закрыть 
окна) падающего меню Window (Окно) главного меню Visual LISP 


(Y Inspect: USUBR 
#<USUBR @029ddcal PRIVE T> 


irea y 


320 Отладка и создание приложений в среде Visual LISP 


Дналоговые окна Inspector (Проверка) имеют контекстные меню, зави- 
сящие от просматриваемых данных. 

Контекстное меню строки объекта появляется после нажатия комбина- 
_ ции клавиш АЕ-+О или щелчка правой кнопкой мышки по строке объекта 
диалогового окна и может содержать следующие команды: 

e Symbol Service (Обслужить символы) — вызывает диалоговое окно 

обслуживания символов; 

e Print (Напечатать) (Alt+P) — отображает объект в окне консоли; 

e Pretty print (Структурная печать) — форматирует и отображает объект 
в окне консоли; 

e Copy (Скопировать) — копирует объект в системную переменную 
*OBJ* : 

e Log (Зарегистрировать) — копирует текущее содержание окна 
Inspector в окно Trace frame (Трассировка рамки); 

e Update (Alt+U) (Модифицировать) — модифицирует окно Inspector 
(Проверка), чтобы показать последнее состояние просматриваемого 
объекта. | 

После того, как щелчком правой кнопки мышки вы подсветите элемент 
списка, появится контекстное меню элементов списка, которое содержит 
следующие пункты: 

e Inspect (Проверить) (Alt+I) — вызов окна Inspector для данного эле- 

мента списка; 

e Descend (Alt+D) — вызов окна Inspector для данного элемента списка 
и закрывание текущего окна Inspector; 

e Copy (Копировать) — копирование значения просматриваемого эле- 
мента в системную переменную *ОВ]*; 

e View source (Просмотр источника) — активизация окна текстового pe- 
дактора, которое содержит выбранный текст. Если окно было загруже- 
но с консоли, активизируется новое окно текстового редактора. 

Иногда необходимо обратиться к некоторой части объекта из програм- 
мы или из окна консоли Visual LISP. Вы можете, например, копировать 
значение элемента одного объекта в другой и так далее, если воспользу- 
етесь зарезервированной системной переменной *ОВ]*, которая при 
просмотре структуры данных может использоваться как временная об- 
ласть памяти. Из окна проверки Inspector (Проверка) можно задавать 
или изменять значение этой системной переменной. 

Чтобы поместить значение объекта в системную переменную *ОВ]*, 
выделите этот объект, щелкните правой кнопкой мышки в окне проверки 
Inspector и выберите пункт Copy (Копировать). 

Рассмотрим окна проверки Inspect: для различных типов данных Visual 
LISP, которые используются наиболее часто. 
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(Yi Inspect: INT 


Окно Inspect: INT (Проверить 
целое число), представленное на еее 
рис. 7.26, показывает список воз- sain? НИИ 
можных представлений целого  |‹чес>1500 
числа: двоичного, восьмеричного, <hex> 54 с 
десятичного, шестнадцатеричного 
и символьного (ASCII код). 

Окно Inspect: REAL, представ- 
ленное на рис. 7.27, не содержит 
списка элементов (Element list). 

Окно шзресё, представленное 
на рис. 7.28, позволяет просматри- Рис. 7.27. Окно представления 
вать имя объекта и содержит сле- ARACTENTERENOTO ЧИСЛО 
дующие элементы: 

[value] — значение символа; 

{name} — имя символа, которое —|НАМО 


всегда является строкои, [value] #<USUBR @033ее590 НАМО 


<flags...> {} - атрибуты симво- |name} "HANO!" 
ла: РА (Protect Assign) (Защи- “89-20 
тить присваивание); ТВ (Trace) Рис. /.28. Окно проверки имени объекта 
(Трассировка); DE (Debug) (От- 
ладка); EA (Export AutoCAD) 
(Экспортировать B AutoCAD). 


1500 _ 


7.2. Создание приложений в среде Visual LISP 


Visual LISP имеет эффективное средство для создания автономного HpH- 
ложения Application Wizard (Мастер приложений). Следует иметь в виду. 
что приложение может быть создано только после того, как оно полнос- 
тью отлажено. 

Чтобы начать работу Application Wizard (Мастер приложений), выберите 
пункт New Application Wizard всплывающего меню пункта Make Application 
(Создать приложение) падающего меню File (Файл) главного меню Visual 
LISP. На экране появится диалоговое окно Create new МаКе-АррйсаНоп 
File (Создать новый файл приложения), представленное на рис. 7.29. 

В диалоговом окне выберите путь и введите имя файла. В нашем приме- 
ре имя файла совпадает с именем функции. К имени файла мастер автома- 
тически добавляет расширение МКР. Нажмите клавишу Enter (Ввод) или 
щелкните мышкой по кнопке Сохранить (Save). 

Рассмотрим порядок создания приложения с помощью Wizard (Мастера). 
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Create new Make-Application File 


Имя файла: | | Сохранить | 
Тип файла: Маке Applicaton file Отмена | 


Рис. 7.29. Диологовое окно создания нового файла 


A 


На первом шаге в разделе Select the application type (Выбрать тип npr- 
ложения) выбирается тип приложения (см. рис. 7.30): 

ARX Standard — Visual LISP создает один модуль ARX, который может 
быть загружен и выполнен в AutoCAD. Этот модуль наряду с программой 


Application Wizard Step 1 of 8 


. ИИ заес пе application type 
The frst step in creatng ал applicaton ıs to y PE Ур 


 споо5е the type of application. | C ARX Standard 
я TISIERS, C ARX with ActvexAutomation 


ARX Standard EAER, 
APX with Асбуех Automation С МХ 
МХ 


Executable prototype 
' APX applications can be loaded within any | | <None> i 
| Release 14 session. A YLX application 


| requires that the Yisual LISP run-time 
| engine is already loaded in order for it to 
| function properly. | 


Cancel | 


«РгелПиЕ 


Рис. 7.30. Диалоговое окно Application Wizard на первом шаге 
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( Application Wizard Step 


Choose a name for the executable file you 

are creating. By default Yisual LISP 

creates an executable file in the current 

directory, but you can change this by Application executable file 
pressing the Browse button and choosing а 


-| different and file name. | [C/ALISP/KOTTEDJ.VLX 
| Browse... | 


Cancel | | <Previous | 


Рис. 7.31. Диалоговое окно Аррйсаноп Wizard на втором ware 


и DCL (Dialog Control Language — язык управления диалогом) файлами 
включает копию Run-Time System (RTS) Visual LISP; 

ARX with ActiveX Automation — Visual LISP также создает один модуль 
ARX, подобно Standard, за исключением того, что в модуле используется 
методология ActiveX. Если программа использует в приложении методо- 
логию ActiveX, то для создания приложения вы должны выбрать именно 
этот режим. В случае выбора типа Standard программа не будет выпол- 
няться в AutoCAD; 

VLX - содержит приложение и все файлы обеспечения, однако не вклю- 
чает RTS Visual LISP. Поскольку RTS не включен, размер модуля VLX 
меньше размера модуля ARX и для всех модулей VLX можно использо- 
вать один RTS. Для продолжения процесса создания приложения щелк- 
ните по кнопке Next (Следующий). 

На втором шаге определяется имя исполняемого файла приложения 
Application executable file (Исполняемый файл приложения) (рис. 7.31). 

По умолчанию Visual LISP создает исполняемый файл в текущем KaTa- 
логе. Можно также задать полное имя пути или щелкнуть по кнопке 
Browse (Пролистать) и выбрать пужное имя файла. 

Если необходимо вернуться к предыдущему шагу Application Wizard 
и что-либо изменить, щелкните по кнопке Previous (Предыдущий). Для 
перехода к следующему шагу щелкните по кнопке Next (Следующий). 
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L$ Application Wizard Step 3 of 8 xi 


f you have an AutoLISP file containing i ие а 
ищаргацоп functions, you may select о | Е: 
have tris fle loaded and executed when 
the application is loaded. This makes it 
| possible for your application to be 
i initialized pror to any command invocation | 
| which occurs when a user calls а 
| command or function defined by your 
i applcaton.) 


№ Load all files automaticaly _ 


Initialization file: 


СЕКТ м 


| By defaut your application will be 
| configured so that all files are loaded 
| automatically 


Рис. 7.32. Диологовое окно Application Wizard на третьем ware 


На третьем шаге производится инициализация файлов Initialization file 
(Файл инициализации) (рис. 7.32). 

По умолчанию приложение будет сконфигурировано таким образом, 
что все файлы загрузятся автоматически. Visual LISP создаст файл запус- 
ка VLISPREFIX.SSS, где PREFIX - первые четыре символа исполняемо- 
го файла, имя которого было задано на втором шаге. Файл запуска загру- 
жает все файлы FAS приложения. Не забудьте, что в файлы FAS можно 
включить функции инициализации. 

При выборе файла инициализации (типа VLARTS.LSP) выключите 
флажок Load of files automatically (Загрузить файлы автоматически) 
и щелкните по кнопке Browse (Пролистать), чтобы ввести имя файла 
инициализации, который создан. Данный файл будет загружен при за- 
пуске. 

На четвертом шаге производится выбор файлов, которые должны быть 
включены в приложение (рис. 7.33). 

У пользователя есть возможность выбрать исходные файлы AutoLISP 
(с расширением LSP), скомпилированные LISP файлы (с расширением 
FAS) либо файлы проекта Visual LISP (с расширением PRJ) или любую 
их комбинацию. | 

При выборе файлов проекта в модуль вывода включаются файлы FAS 


всего проекта. 
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Application Wizard | Step 4 of 8 | >] 


ЕЕ 

; à Select the files that should be included- 
within the application. You can select 

С ‘AutoLISP source files (LSP). compiled ` | 

| LISP files (FAS). or Visual LISP projectfies 

A ‚(РРУ. or any combination. 

i s 


Ada.. | fı LISP Source Files >| 
| Remove | | оваезА | 


Рис. 7.33. Диологовое окно Application Wizard на четвертом ware 


В случае выбора исходных файлов AutoLISP Visual LISP компилирует 
файлы, которые входят в приложение. 

Для того чтобы выбрать тип файла, который необходимо включить 
в приложение, раскройте список и щелкните по кнопке Add (Добавить). 


Acda LISP source files to package 


T ея Posl 

; о A ANALITIC sy ММКУ (A Рраг 

EI Din [© MNOGOSTO Pparl 

‚9 Din2 6; MNOGOSTP [privet 

£ is djon ks mnogostpm KA privet2w 
hiis ECSAG KA mnogostr ий SETDFOR 
‚ С Eksper A offis kA SETRIS 
В ELEKTRR [я Par IA STRELA 

‚ (Я ELKTRISO kA Рай 


CIRA ELKTRISL Роз! 


N TAr T iah aiar aid E ar a y paea ` Oni Takaa aa Sa a ---—- uR 
* . $ ' ы к 


E 


e. 


f 
| 
С 
gi 
| 
$: Имя файла: fkotedj = 


Tn ип файлов: fsp: Source Files -| Отмена F 


Рис. 7.34. Диалоговое окно добавления исходных LISP файлов в покет 
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На экране появится диалоговое окно Add LISP source files to package (До- 
бавить исходные LISP файлы в пакет), представленное на рис. 7.34. 

В этом диалоговом окне можно выбрать только один файл. Чтобы доба- 
вить выбранный файл в приложение, можно дважды щелкнуть по нему 
мышкой или нажать кнопку Открыть (Ореп) (рис. 7.35). 

Когда вы хотите удалить или заменить файлы, включенные в приложе- 
ние, выделите эти файлы и щелкните по кнопке Cancel (Отменить). Mox- 
но также использовать правую кнопку мышки для вызова соответствую- 
щего контекстного меню. 

Для замены всех файлов LSP на файлы FAS щелкните по кнопке Select 
АП (Выбрать все) для выбора всех файлов приложения, затем нажмите 
кнопку Remove (Удалить). 

Visual LISP загружает файлы приложения в том порядке, в котором они 
перечисляются. На этом шаге Application Wizard (Мастер приложения) 
можно переупорядочить список файлов. Например, функция должна быть 
определена прежде, чем будет выполнена загрузка функции, в которой она 
используется. Диалоговое окно Application Wizard Step 4 of 8 содержит 
кнопки. которые можно использовать, чтобы переместить файлы в спис- 
ке. Выберите имя файла, затем щелкните по кнопке: 

° Тор (В начало) — для перемещения в начало списка файлов; 

e Ор (Вверх) — для перемещения в списке файлов на одну позицию 

вверх: 


(Е Application Wizard Step 4 of 8 EJ 


| Select the files that should be included 
within the applicaton. You can select 
AutoUSP source files (LSP), compiled 
USP files (РАЗ), or Visual USP project files | 
(PRJ) or any combination. 


LSP C/AUSP/KOTTEDJ.LSP 


r Source Pies: li 
[Un] Select All j 


| Cance! | | “<Previous | | Next> В 


Рис. 7.35. Диалоговое окно с выбранным файлом 
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e Оп (Вниз) - для перемещения в списке файлов на одну позицию вниз; 

e Btm (В конец) — для перемещения в нижнюю часть списка файлов. 

Эти же действия можно выполнить с помощью контекстного меню, KO- 
торое вызывается щелчком правой кнопки мышки (рис. 7.36). 


Контекстное меню содержит следующие пункты: 

e Remove — удалить из списка; 

e Move up — переместить на одну позицию вверх 
в списке файлов; 


e Move to top — переместить в начало списка файлов; | 


e Move down — переместить на одну позицию вниз 
в списке файлов; 
e Move to bottom — переместить в конец списка þat- 
JIOB. 
Начиная с 12-й версии, AutoCAD располагает сред- 
ствами для создания диалоговых окон DCL (Dialog 
Control Language — язык управления диалогом). 


L Remove 
0 Move up 
Move to top 
‚ Move down 
Move to bottom 


n -e ~ep e e 


Рис. 7.36. 


Контекстное меню 
перемещения имен 
файлов в списке 


На пятом шаге производится включение в приложение файлов DCL 
(Dialog Control Language - язык управления диалогом) с предваритель- 


ной компиляцией, однако их можно и не включать. 


На шестом шаге производится создание External Definitions File (Внеш- 
не определенных файлов) (XDF) для функций, определенных в других 


ARX или ADS приложениях (см. рис. 7.38). 


(Y Application Wizard Step 5 of 8 


You can choose to compile Dialog Control 
(ОСЬ files within your application. 


This selection may be left blank. 


a- 


Remove | 


” bA’ 
_ 3 "a 
> i 
i { г 5 
-i à 
pi : 
/ + D 
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à = bd P - . > - 
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Add.. [Ün]Select All | 


daa <Previous | _ Меж» 


Рис. 7.37. Диалоговое окно Application Wizard на пятом ware 
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(È Application Wizard Step 6 of 8 


-F 
1 | Ryour application calls functions defined р 
Within other ADS or ARX applications, Не | и 
| applicaton must know how to call the p np 
functons. These may be defined within a 3f 
spegal type of file called an Extemal TETES 
Definition File XDF} or by making explicit HDn 
calls to the (Misp-importexsubrs) function. 3 
! A anay 
| In this step. you may select any XDF files | E: 


! that have already been crested. 
i Add.. d 
| Remove 
Cancel | <Previous : 


Рис. 7.38. Диалоговое окно Application Wizard на шестом шаге 


= м+м 


оаезАи” 


При этом можно использовать X DF файлы, которые были созданы ранее. 
На седьмом шаге производится инициализация приложения (во время за- 
грузки или во время первого вызова функции инициализации) (см. рис. 7.39). 


(У Application Wizard Step 7 of 8 E4 


| Your application will be initalized either at x "бреет вит in load time усе 
| loadtime, or when the first call is made to | 
any initialization function. 


‚ Initialization functons аге the only functions 
| available т AutoCAD after the load of your | 
applicaton. 
| уси select automatic creation, all С: . 
| functions will be included in the list of 
l initialization functions. 


: > Ç. РР , 31% ° Syu ay z 

aga ` | а A - DÀ g y i i - у | „> - и hip CPA у в 
Cancel 2 <Previous п Меж он 

‚ : l | : . i i => i - г ‚фу 1, Í 

Tro é < i a > - - w * r- "r = 


Рис. 7.39. Диологовое окно Application Wizard на седьмом шаге 
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Чтобы обеспечить инициализацию создаваемого приложения во время 
загрузки, включите флажок в окошке Initialize in load time (Инициализи- 
ровать во время загрузки). | 

Во время первого вызова функций инициализации необходимо создать 
их список. Функции инициализации — это функции, которые предназначе- 
ны для использования в AutoCAD. К ним относятся все функции с MMe- 
нем С:<имя>. Кроме того, обращение к функции УТ-ЕХРОВЛ-ТО-АСАПО 
связывает инициализацию приложення. 

При включенном в окошке Form the list automatically (Создать список 
автоматически) флажке список функций инициализации будет сформи- 
рован автоматически.Чтобы выбрать этот режим, необходимо вначале 
убрать флажок в окошке Initialize in load time (Инициализировать во вре- 
мя загрузки). 

Если установлен флажок в окошке Form the list automatically (Создать 
список автоматически), можно с помощыьо кнопки Preview (Предвари- 
тельный просмотр) просмотреть список функций, который Visual LISP 
создает. 

Когда в окошках Initialize in load time (Инициализизовать во время 
загрузки) и Form the list automatically (Создать список автоматически) не 
включены флажки, функции инициализации можно выбирать избира- 
тельно. При этом на месте кпопки Preview (Предварительный просмотр) 
появляется кнопка Add (Добавить). 


(4! Application Wizard Step 8 of 8 


Executable: 
C:/ALISP/KOTTEDJ. VLX 
Load all automatically 
Initialize in load time 


AIl of the information required for creating 
the application has been collected. You 
can creste the application now, or just save 
the information in an application make file 
(.mkp) for creating the application later. 


eu emee 
- J 


^^ Make the application now 


t gi ЧА 


| Cancel | к 
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Рис. 7.40. Диалоговое окно Application Wizard на восьмом ware 
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На заключительном шаге (рис. 7.41) производится создание приложения 
или вся необходимая для этого информация сохраняется в МАКЕ файле. 
Если щелкнуть по кнопке Finish (Закончить), появится окно Build Output 
(Создание выходного файла), в котором отображается информация о за- 
вершении процесса компиляции приложения (см. рис. 7.41). 

Одновременно в окне консоли появится сообщение о завершении созда- 
ния приложения. как на рис. 7.41. 

При отказе создавать приложение Visual LISP сохраняет информацию 
в файле с расширением МКР который можно использовать для этой же 
цели позднее. Чтобы создать приложение из файла с расширением МКР 
необходимо выбрать пункт Load file (Загрузить файл) падающего меню 
File (Файл) главного меню Visual LISP и задать имя файла c расширени- 
ем МКР 

Когда файл с расширением МКР выполняется, Visual LISP автомати- 
чески компилирует любые исходные файлы приложения, которые отвеча- 
ют следующим условиям: 

e компилируемая (FAS) версия файла отсутствует; 

èe компилируемая версия имеется, однако исходный файл после его KOM- 

пиляции изменился; 


-8 Visual LISP for AutoCAD Release 14 - [<Build Ошри?>] | | elx] 
Z) We Edt Seach VYiew Projet Options Window Help i | ИЕ 
Josta sT co |1 = АСЕ 
пе | 279 ФАО Ge. Pn e kp U hE e G ИВ 
; (COMPILE-FILES st (C:/ALISP/ULI$KOTT.$$$)) a 


[Analyzing file “C:/ALISP/ULIŞ$KOTT.$$$"] 


[COMPILING C:/ALISP/ULI$KOTT.$$$] 


N 
, ea 
[FASDUMPING object format -> “C: /ALISP/ULIŞKOTT.FAS™"] & 
- xxx COMPILATION COMPLETE. 
Рис. 7.41. Окно сообщений компилятора Build Output (Создание выходного файла] 
(В Visual LISP for AutoCAD Release 14- [Visual LISP Console] Е] 53 


lJ) Ре Edit - Search View Рея Debug Tools Window Help 
Т z Í ü 
1532г @! х hE) |a | || 4 ts [саг 


ры: ам sse oala ео 
Application packed “C: /АЕТЗР/КОТТЕОВ. . ЧЕХ” 
ОК. 


= [8х 


. 11 forms loaded from #<editor ”C:/ALISP/KOTTEDJ.MKP”> 


Рис. 7.42. Окно консоли с сообщениями о результатах работы 
Application Wizard [Мостер приложений) 
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В результате создается файл, название которого состоит из имени исход- 
ного файла с добавлением в начало символов VLIȘ и расширением $$$. 

Порядок запуска на выполнение в AutoCAD автономного приложения 
зависит от того, какой создан модуль — ARX или VLX. 

Чтобы выполнить в AutoCAD приложение ARX, загрузите файл ARX 
и вызовите его из подсказки COMMAND. Загрузить файл можно с помо- 
ubo функции (АВХГОАО...) или команды Load Application (Загрузить 
приложение) из падающего меню Tools (Инструменты) главного меню 
AutoCAD. 

Функция (АВХГОАО...) имеет следующий синтаксис: 

(ARXLOAD <"имя файла">)} 
Для имени файла определите полное имя пути файла ARX. Например: 
(АВХЬОАО "C:/ALISP/KOTTEDJ.ARX ") 

Если загрузка прошла неудачно, то есть имя загружаемой функции не 
появилось, проверьте, возможно, приложение уже загружено. Команда 
ARX в командной строке AutoCAD позволяет просмотреть список загру- 
женных приложений АКХ. 

Чтобы выгрузить приложение, которое в настоящее время загружено, 
используйте функцию (АВХОМЕГОАО...). 

Для выполнения приложения, которое загружено, необходимо вызвать 
его в командной строке AutoCAD таким же образом, как вызывается JO- 
бая функция AutoLISP. | 

Чтобы выполнить приложение VLX, необходимо загрузить Run-Time 
System (RTS) Visual LISP, а затем с помощью функции (УГ- LOAD...) за- 
грузить VLX модули. Например: 


(VL-LOAD "С: /АЬГТЗР/КОТТЕРУ .АВХ") 


Если приложение загружено, выполните его из командной строки 
AutoCAD так же, как и любую функцию AutoLISP 

Когда имя функции начинается с С:, ее можно вызывать, как команду 
AutoCAD, то есть заключать имя в круглые скобки не нужно. 

Чтобы восстановить приложение после внесения в программу измене- 
ния, можно использовать Wizard (Мастер). Прежде чем восстанавливать 
приложение, необходимо удостовериться, что оно в настоящее время за- 
гружено в AutoCAD и разгрузить его.\1$ца| LISP не будет производить за- 
пись поверх существующего модуля. Чтобы использовать Wizard (Мас- 
тер), выберите пункт Existing Application Wizard (Существующий мастер 
приложения) из всплывающего меню пункта Make Application (Создать 
приложение) падающего меню File (Файл) главного меню Visual LISP 

При создании приложения с помощью Wizard (Мастер) можно выбрать 
файл с расширением МКР и внести изменения в определение приложения. 
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Когда определение приложения не изменялось, приложение можно опе- 
ративно восстановить, если загрузить и выполнить файл с расширением 
МКР 

Если файл приложения МКР загружен в текстовом окне редактора 
Visual LISP, можно активизировать этот процесс, щелкнув по кнопке Load 
active edit window (Загрузить текст активного окна редактирования) на 
панели инструментов Tools (Инструменты). При загрузке файла с расши- 
рением МКР, Visual LISP выполняет команды в файле автоматически. 

В качестве альтернативы Application Wizard (Мастер приложений) nan- 
более опытные (на современном языке — «продвинутые») пользователи 
могут использовать Application АРТ Visual LISP для создания выполняе- 
МОГО МОДУЛЯ. 


7.3. Встроенные функции Visual LISP 


(УТ-АЧТОСАО-РЕЕОМ) — определяет имя. функции Visual LISP 
в AutoLISP ; 

(VL-AUTOCAD-UNDEFUN) - отменяет имя функции Visual LISP 
B AutoLISP. T, если отменила, и NIL, если нет (например, функция не была 
определена в AutoLISP); 

(УГ-СОМЗР) — определяет, действительно ли переменная — список. 


Например: 

_$ (SETQ +. '(АВСО)} ; нажать клавишу Ctrl 
(2 BCD) 

_$ (YL-CONS? L) ; нажать клавишу Ctrl 


г? 
1 


(VL-DIRECTORY-FILES) — ищет нужные файлы в каталоге 
(DIRECTORY); если каталог МП. или отсутствует, используется текущий 
каталог, если шаблон МП. или отсутствует, используется *.*; если число 
равно —1; ищутся только каталоги; если 0 — файлы и каталоги; если 1 — 
файлы. Например: 

_$ (VL-DIRECTORY-FILES ; нажать клавиши Ctrl+Enter 
"С:/РЕОСРАМ ЕТЬЕЗ/РОТОСАО R14/VLISP" "*.АБХ" 1) 
("Jlarts.arx" "Vlide.arx" "Vlrts.arx") 

(УТ-ЕУЕКУ...) — проверяет, является ли условие истинным для каждой 
комбинации элементов списков (сначала первых элементов, затем вторых 
ит.д.). Например: 
$ (SETQ L1 '(1 2 3-4)) ; нажать комбинацию клавиш Ctrl+Enter 


(SETQ L2 '(1324)) ; нажать комбинацию клавиш Ctrl+Enter 
(УТ.-ЕУЕВУ ‘< = L1 L2 } ; нажать комбинацию клавиш Ctrl 
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(1234) 
(1324) 
nil 
(VL-EXE-FILENAME) - возвращает полное имя файла текущей выпол- 
няемой программе. Например: 
_$ (VL-EXE-FILENAME) 
"C: / PROGRAM ЕТВЕЗ/АОТОСАО R14/VLISP/VLIDE.ARX" 
(VL-FILE-COPY <"“файл1"> <"файл2"> [4uc10]) - копирует файл 
1 и добавляет к файлу 2, если третий параметр есть и не NIL. Если возвра- 
щается МП., то ошибка при копировании: файл 1 не читается, файл явля- 
ется каталогом, файл 2 существует. Например: 
_$ {VL-FILE-COPY "С:/АОТОЕХЕС.ВАТ" "С: /МЕМАОТО. ВАТ") 
1417 
(VL-FILE-DELETE <"имя файла”>) — удаляет файл. T, если успешно, 
и NIL, если нет; 
(VL-FILE-DIRECTORY-P <"имя ">) — определяет, является ли имя 
именем каталога. T, если да, и NIL, если нет. Например: 
_$ (VL-FILE-DIRECTORY-P "РЕТУЕТИ" ) 
NIL 
(VL-FILE-RENAME <"новое имя"> < "старое HMA” >) — переименовы- 
вает файл. T, если переименовал, и NIL, если нет. Например: 
(УЬ-РТЬЕ-ВЕМАМЕ "C:/PRIVETW.LSP" "С: /РВТУЕТ1М.Ь5Р"} 
T 
(VL-FILE-SIZE <“имя файла">) — определяет размер Файла в байтах. 
NIL, если имя файла нечитаемо, и 0, если имя файла - каталог или пустой 
файл: 
_$ (VL-FILE-SIZE "С: /АОТОЕХЕС. ВАТ") 
SES 
(VL-FILE-SYSTIME <"имя файла">) — время последней модификации. 
Возвращает список, содержащий дату и время последнего изменения, или 
NIL, если файл не найден. Например: 
_$ (VL-FILE-SYSTIME "C:/ALISP/HANOIW.LSP ") 
(199910 31 20 37 38 0) 
Последний раз файл был изменен в 1999 году, в 1-м месяце года (ян- 
варь), 0-й день недели (воскресенье), 31 января в 20:37:38; 
(VL-FILENAME-BASE <"имя файла">) — возвращает имя файла noc- 
ле снятия пути DIRECTORY и расширения. Например: 
-$ (УЬ-ЕТЬЕМАМЕ-ВАЗЕ "С: /АГТЗР/НАМОТИ.15Р ") 
"НАМОТИ" 
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(VL-FILENAME-DIRECTORY <"имя файла">) — возвращает путь Ka- 
талога файла, без имени файла. Например: 
_$ (VL-FILENAME-DIRECTORY "C:/ALISP/HANOIW.LSP ") 
"C:/ALISP" 
(VL-FILENAME-EXTENSION <”"имя файла">) — возвращает только 
расширение из имени bao если его нет — NIL. Например: 


Т.-ЕТГЕМАМЕ-ЕХТЕМЗТОМ "С: /РАТУЕТИ. ГР") 


(VL- -FILENAME-MKTEMP [копируют расширение DIRECTORY) - 
определяет уникальное имя файла, которое нужно использовать для вре- 
менного файла. Основа имени — до 5 символов, принимаемых из имени 
файла. плюс 3 уникальных комбинации из символов. Все имена файла, 
сгенерированные функцией (VL-FILENAME-MKTEMP...) в течение сеан- 
са Visual LISP удаляются, когда выходят из Visual LISP; 

_5 ( МЕЕЕЕГЕМАМЕ Е-МКТЕМРЬ) 

"С: \\WINDCOWS\ \TEM?\\SVL--~001" 

(VL-INIT) — подражает инициализации AutoLISP на открытой или HO- 
вой команде рисунка. T, если инициализация прошла успешно; 

(УГ-И$Т* <объект>...) — создает и возвращает список. Когда после- 
дний параметр - атом, результат — точечный список. Если последний na- 
раметр — список, то функция присоединяет ко всем предыдущим парамет- 
рам. Например: 


$ (л-тбт* 1) 


S (VŁL-LIST* 0 "НОЛЬ") 
Jo = “ПОЛЬ 
(VL-LIST-> STRING <список АЗСП-кодов>) — преобразует список 
АЗ$СП-кодов в элементы строки. Например: 
`JL-LIST->STRING ' (49 50 51 52) ) 


(VL-LIST-LENGTH <список>) — вычисляет длину списка. Например: 
$ (VL-LIST-LENGTH ’(A BC DE)) 


5 
(VL-MEMBER-IF '<предикат > <список>) — определяет, является ли 
предикат (условие) истинным для одного из элементов списка. Предикат 
(условие) это функция с одним аргументом, которая принимает значе- 
ние Т для любого условия, назначенного пользователем. 
Функция (УГ-МЕМВЕК-Е..) передает каждый элемент в списке функ- 
ции, определенной в функции предиката. Если функциональные возвраты 
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не МП., возвращается остальная часть списка тем же самым способом, как 
и в функции (МЕМВЕК...); 

_$ (УЬ-МЕМВЕВ-ТЕ 'LISTP ' (1 "STR" (0. "STRING") NIL T)) 

((0.0 "STRING") nil T) | 

(УГ-МЕМВЕВ-1Е-МОТ '<предикат > <список>) — определяет, являет- 
ся ли предикат МП. для одного из элементов списка; 

_$ (МЪ-МЕМВЕВ-ТЕ-МОТ ‘АТОМ *(1 "STR" (0. "STRING") NIL T)) 
((0.0 "STRING") nil T) 

(VL-POSITION <символ> <список>) — возвращает номер позицин 
определенного элемента списка, а первый элемент списка под номером 0, 
второй - 1 и так далее; 

-$ {SETQ STUFF (LIST "A" "B" "C™ "D" "E")) 
Pan ig СЕ Е] 

_$ (VL-POSITION "D" STUFF) 

3 

(VL-PRIN1-TO-STRING <"объект">) — возвращает строковое пред- 
ставление любого объекта LISP, как будто это выводилось функцией 
(РВПМ1...); 

_$ (VL-PRIN1-TO-STRING "ВСРЕ") 
"\"ВСОЕ\ "* 
(VL-PRINC-TO-STRING <"объект">) —- возвращает строковое пред- 


ставление любого объекта LISP, как будто это выводилось функцией 


(PRINC); 
_$ (VL-PRINC-TO-STRING "ABC" ) 
"ABC" 

(VL-REGISTRY-WRITE <"pasne.1 реестра"> | <"uma"> <"znayenne">]) — 
создает в реестре Windows новый раздел, параметры, состоящие из имени 
и значения. Например: 

_$ (УЬ-ВЕСТЗТВУ-ИКТТЕ "НКЕУ_СОВКЕМТ_ОЗЕВ\\ТЕЗТ" 
"ТЕСТ МАМЕ" "TEST DATA") 
"ТЕЗТ РАТА" 

Состояние реестра Windows после обращения к функции (VL- 
REGISTRY-WRITE...}) показано на рис. 7.43; 

(VL-REGISTRY-READ <раздел рсестра> |[<"имя"> <"зиачение">]) — 
чтение данных, сохраненных в реестре Windows; 

_$ (VL-REGISTRY-READ "НКЕУ_СОКВЕМТ_ОЗЕВ\\ТЕЗТ" "TEST 


МАМЕ") 
"TEST DATA" 


T a < a ЗА 
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(VL-REGISTRY-DELETE <“раздел реестра“”> [<"”“имя”> <"значе- 
ние">]) — удаляет из реестра Windows имя или значение; 

Если регистр обеспечен и не NIL, заданная величина будет очищена от 
записи. Если значение имени отсутствует или NIL, функция удаляет 


определенную клавишу и все ее значения, 
-S {(VL-REGISTRY-DELETE "HKEY CURRENT-USER\\TEST") 


Ta 


(VL-REGISTRY-DESCENDENTS <“раздел реестра"> [<список>]) — 
возвращает список имен подразделов выбранного раздела реестра; 


_S(YL-REGISTRY-DESCENDENTS 

"НЕЕ ТАЖА!, МАСЕТКЕ\ \ ЗОЕТААВЕ") 

("Мао соЕС" "Microlog" "Quarterdeck" "Far" "DigitalEquipmentCorporation" 
"5C" "MathasScit"” "Crhugna" "CyberLink" "Xing Technology Corp." 

"Accore" "Inicrmatic" "Mouse Systems” "Kodak" "Ulead Systems" "Corel" 
"Corputer Artworks" "Symantec" "MicroQuill" "Autodesk" "ABBYY" 

"2=03е5= MT, Ltd." "Clients" "ODBC" "ACD Systems" "INTEL" "Description" 
"CLASSES" "MicroscÍt'”) 


(VL-REMOVE '<элемент> <список>) — удаляет элемент из списка; 
(УТ-ВЕМОТУЕ PI (LIST PI T 0 "АВС")) 


2.* Редактор реестра 


Реестр Правка Вид Справка 


T 43] Значение HS Я 
lab] (По умоячан... (значение не присво 
lab] TEST МАМЕ — "ТЕЗТ ВАТА" 


= 2 Мой компьютер 
z- ] HKEY_CLASSES_ROOT 
= Г] HKEY_CURRENT_USER 

+ ] АррЕуетм$ 

T- Control Panel 

. {3 InstallLocatonsMRU 


= C] keyboard layout 
+ Г] Network 
B-J Software 


[ELES 
J] HKEY_LOCAL_MACHINE 
Г] HKEY_USERS 
Г] HKEY_CURPRENT_CONFIG 
+ -CJ HKEY_DYN_DATA 


ыы 


Р-Н 


] 


хо а роту $ > 


ое усн Зои т. 49 | 
г = Cd - a a? g r ва" а TA EH f 
у р A r > ta } : "ade <, „. № 


Мой компьютеру КЕУ. СОАРЕМТ-ИЗЕРАТЕЗТ ^^ 


Рис. 7.43. Состояние окна редактора реестра Windows 
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(ТО "АВС”) 
_ (УЕ-КЕМОУЕ-ТЕ '<предикат> <список>) - удаляет все элементы 
списка, которые соответствуют условию; 

_$ (VL-REMOVE-IF 'LISTP (LIST ' (РТТ) 0" АВС ")) 

(0 " АВС ") 

(УТГ-ВЕМОУЕ-ТЕ-МОТ '<предикат> <список>) - удаляет все элемен- 
ты списка, которые не соответствуют условию; 

_$ {УЬ-ВЕМОУЕ-ТЕ-МОТ 'LISTP (LIST '(PI T) 0" АВС ")) 
( (PI T)) 
(VL-SOME/ '<предикат> <список>...) — проверяет выполнение усло- 
вия для первых элементов каждого списка, затем вторых и так далее; 
_$ (SETQL1 (LIST 02 PI 4)) 
L2 (CDR L1)}) 
(VL-SOME ‘= L1 L2) ; сравнивает элементы списков 
nil | 

(VL-SORT <список> '<функция сравнения>) — сортирует элементы 
в списке согласно функции сравнения. Функцией сравнения может быть 
любая функция, которая принимает два параметра и возвращает Т. Повто- 
ряющиеся элементы могут быть удалены из списка; 

_$ (VL-SORT '(3 2 13) А. ; сортирует по возрастанию 
(123) 

(УГ-ЗОВТ-Е <список> '<функция сравнения>) — сортирует элементы 
в списке согласно функции сравнения и возвращает номера (индексы) 
элементов. Повторяющиеся элементы будут сохраняться; 

_$ (VL-SORT-I '("А" "D" "F" "C") '>); сортирует по убыванию 
(2130) 

(VL-STRING->LIST <строка>) — преобразуст элементы строки в CIH- 
сок кодов ASCII; 

_$ (VL-STRING->LIST "132"} 
(49 51 50) 

(VL-STRING-ELT <строка > <позиция>) - возвращает представление 
символа строки, стоящего в определенной позиции в строке в коде ASCII. 
Нулевой позиции соответствует первый символ в строке; 

_$ (VL-STRING-ELT "Успеха Вам, пользователи!!!" 5) 
224 ; пояснение - на 5 позиции буква а, код ASCII ее - 224 

(VL-STRING-LEFT-TRIM <строка удаляемых символов> <строка IIC- 
ходных символов>) — удаляет определенные символы с начала строки; 

_$ (VL-STRING-LEFT-TRIM "Пра" "Правнук") 
"внук" 


12 — 1278 


еж але И 
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(VL-STRING-MISMATCH <строка1> <строка2> [<позиция1> <пози- 
ция2> <Т>]) — возвращает длину совпадающего фрагмента символов для 
двух строк. Можно указать позиции начала фрагмента. Наличие буквы Т 
снимает различие в написании строчных и прописных букв; 


$ (VL-STRING-MISMatch "Правнук" "Внук" 3 0T) 


|. | 


(VL-STRING-POSITION П<код символа> <строка> [<нач.поз.1> 
<Т>]) -— определяет позицию символа с определенным АЗСП-кодом 
в строке. Г — поиск с конца строки; 
$ (VL-STRING-FOSITION 224 "Читатель") 

; ASCII сн yxa а - 224 
(VL-STRING-RIGHT-TRIM <"удаляемые символы"> <строка>) — yga- 
ляет ржи символы с конца строки; 


о | 


-w ^^ 


(VL-STRING- -SEARCH <"фрагмент"> <строка> [позиция начала поис- 
ка]) — определяет начальную позицию первого вхождения заданного 
фрагмента в строке. Поиск чувствителен к регистру; 


$ (VL-STRING-SEARCH "Бар" "Санта-Барбара" ) 


(VL-STRING-SUBST <"новый фрагмент"> <"старый фрагмент"> <ис- 
ходная строка> [позиция начала поиска]) — заменяет старый фрагмент 
в исходной строке на новый. Поиск чувствителен к регистру; 


$ (VL-STZ?ING-SJEST "98" "95" "Windows 95") 


и - > 


"и" росие 95" 

(VL- -STRING-TRANSLATE <”исходный набор"> <"новый набор"> 
<строка>) - заменяет исходный набор символов в строке на новый набор 
СИМВОЛОВ; 

_$ [VL-STRING-TRANSLATE "246" "357" "str2 str4 str6") 
tetr3 Cro ВЕ?" 

(VL-STRING-TRIM <" удаляемый набор" > < строка>) — удаляет Ha- 
бор символов в начале и в конце строки; 


_$ (VL-STPRING-TRIM "—" "—*** n) 
CEE de de dii 


(VL-SYMBOL-NAME <символ>) — возвращает строку, содержащую 
имя символа; 
_$ (VL-SYMBOL-NAME ’5::5ТАВТОР) 
"с: : ОТАВКТОР" 
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(VL-SYMBOL-VALUE <символ> ) — возвращает текущее значение, CBA- 
занное с символом. Эта функция эквивалентна функции (EVAL...) 
AutoLISP, но не вызывает вычислитель LISP; 

_$ (VL-SYMBOL-VALUE 'T) 
T 

(VL-SYMBOLP <объект>) — идентифицирует, действительно ли опре- 

деленный объект — символ: 
_$ (VL-SYMBOLP T) 
fi 

(VLAX-3D-POINT <список>) — создает АСТТУЕХ-совместимую трех- 

мерную структуру точки. Список - 2 или 3 числа, представляет точку; 
_$ (VLAX-3D-POINT 5 20) 
(530 2040 0:0) 

(VLAX-ADD-CMD <глобальное имя> <имя функции> [<локальное 
имя> < СМО-флажки >]) — добавляет команды к группе. Имя функции - 
функции AutoLISP с нулевыми параметрами; 

СМО-флажки — целое число (значения по умолчанию к 

ACRX_CMD_MODAL | ACRX_CMD_REDRAW); 

(VLAX-CURVE-GETAREA <кривая>) — возвращает область внутри 
кривой; 

(УГАХ-СОКУЕ-СЕТЬТЗТАТРАКВАМ <кривая> <параметр>) - воз- 
вращает длину сегмента кривой от начала кривой до отметки, определяе- 
мой параметром; 

(VLAX-CURVE-GETDISTATPOINT <кривая> <отметка>) — возвра- 
щает длину сегмента кривой между точкой начала кривой и определенной 
отметкой (в координатах WCS); | 

(УГАХ-СОВУЕ-СЕТЕМОРАКАМ <кривая>) — возвращает конечную 
точку кривой; 

(УГАХ-СОКУЕ-СЕТЕМОРО\Т <кривая>) — возвращает конечную 
точку кривой (в координатах WCS); 

(УГАХ-СУОКУЕ-СЕТРОПМТАТРАКАМ <кривая> <параметр>) — on- 
ределяет точку на кривой, которая соответствует параметру, и возвращает 
эту точку; | 

(УГАХ-СОКУЕ-СЕТЗТАКТРАКАМ <кривая>) — возвращает napa- 
метр начала на кривой; 

(УГАХ-СОВУЕ-СЕТТАВТРОГМ\Т <кривая>) — возвращает отметку 
начала кривой (в координатах \/С 5); 

(VLAX-CURVE-ISCLOSED <кривая>) — определяет, закрыта ли опре- 
деленная кривая; 

(УГАХ-СОКУЕ-СЕТСГОЗЕТРО1МТТО <кривая> <точка> [расши- 
рение]) — возвращает точку (в координатах WCS) на кривой, которая 


12° 
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является самой олизкой к определенной точке. Если значение расширения 
не ноль, расширяет кривую при поиске самой близкой точки; | 

(УГАХ-СОВУЕ-СЕТСПОЗЕЗТРОТМТТОРКО]ЕСТЮМУ —<кривая> 
<точка> <нормаль> [расширение]|) — возвращает точку (в координатах WCS) 
на кривой. которая является самой близкой к определенной точке. Если 
расширение не ноль, расширяет кривую при поиске самой близкой точки; 

(УГАХ-СОВУЕ-СЕТЕВУТОЕВТУ <кривая> <параметр>) — возвра- 
щает первую производную (в координатах WCS) кривой в определенном 
расположении: 

(УГАХ-СОВУЕ-СЕТЗЕСОМООЕЕВТУ <кривая> <параметр>) - воз- 
вращает вторую производную (в координатах WCS) кривой в определен- 
ном расположении: 

(УГАХ-РОМР-ОВ]ЕСТ <ОБЪЕКТ УГА>) - перечисляет методы 
объекта и реквизиты; 

(УГАХ- -ENAME -> УГА-ОВ]ЕСТ <входное имя объекта>) — трансфор- 
мир ет объект в объект VLA (УМ$Р APLICATION); 


-$ Ч -ЕМЕМЕНЬ VLA=-QBJECT E) 

Ž<VLA-CEJECT IAUTOCADLWPOLYLINE 03F713A0 > 

(VLAX-ERASED-P <объект УГА>) — определяет, был ли объект унич- 
тожен. T, если объект был уничтожен, иначе NIL; 

(УГАХ-ЕОК <символ> <набор объектов> [выражение1 [выраже- 
ние2...|]) - выполняет итерации через набор объектов, оценивающих каж- 
дое выражение; 

(УГАХ-СЕТ-АОТОСАО-ОВ]ЕСТ) - восстанавливает верхний уровень 
объекта приложения AutoCAD для текущего сеанса AutoCAD; 

TQ АЕ (УБАХ-СЕТ-ЕОТОСАБ-ОВУЕСТ) } 

#<VLŁ-CEJZCT ТАОТОСАРАРР11сае1от 00B3B91C> 

(VLAX-INVOKE <объект VLA> <метод> < список параметров >) — 
называет определенный метод объекта. Функция (УГАХ-ПМУОКЕ...) Mo- 
жет использоваться для заказанного объекта АСТТУЕХ; 

LZZ-INVOKE “LA-OBJECT "UPDATE" NIL) 
; aen ЗЕЗИБАЛЕНТНО Обращению к стандарту VLA: 
(УБЕ-ИЗБЕТЕ VLA-OEJECT) 

(УГАХ-ГОАТА-ОЕГЕТЕ <объект VLA или AutoCAD> <клавиша>) — 
стирает данные LISP из словаря рисунка. T, если успешно, и NIL, если нет 
(например, данные не существовали); 

_$ (УБАХ-БОЕТА-РОТ “ОТСТ" "KEY" '(1)) 

(1) 

—_$ (VLAZ- -БОРТЕ- DELETE "DICT" "KEY")} 

T 


—, — pa 
= = f 
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(УГАХ-ГОАТА-СЕТ <объект VLA или AutoCAD> <клавиша> [заданные 

по умолчанию данные]) - восстанавливает данные LISP из словаря рисунка; 
_$ (VLAX-LDATA-GET "РТСТ" "КЕУ") 
(1) 

(УГАХ-ГОАТА-Е$Т <объект VLA или AutoCAD>) - перечисляет 
данные LISP в словаре — ассоциативный список, состоящий из пар (кла- 
виша — значение); 

(УГАХ-ГОАТА-РОТ <объект VLA или AutoCAD> <клавиша> <сохра- 
няемые данные>) — сохраняет данные LISP в словаре рисунка; 

_$ (УЬАХ-БОАТА-РОТ "DICT" "KEY" ' (1)) 
(1) | | 

(УГАХ-ГОАТА-ТЕ$ЗТ <данные LISP >) - определяет, могут ли данные 
быть сохранены за границей сеанса. T, если данные могут быть сохранены 
и восстановлены за границей сеанса, NIL, если нет; 

(УГАХ-МАР-СОГТЕСТЮМ <объект УГА> <функция>) — применяет 
функцию ко всем объектам в наборе; 

(УГАХ-МЕТНОЮ-АРРИСАВГЕ-Р <объект VLA> <метод>) - опре- 
деляет, поддерживает ли объект специфический метод; 

_$ (УЬАХ-МЕТНОР-АРРЕТСАВЬЕ-Р МНАТЗМУРТМЕ "СОРУ") 
T 

(VLAX-OBJECT-RELEASED-P <объект VLA>) — определяет, был ли 
объект реализован; 

(УГАХ-РКОПООСТ-КЕУ) - возвращает путь записи AutoCAD. Этот 
путь может быть использован с целью регистрации приложения для за- 
грузки запроса; 

_$ {УЪАХ-РВОБОСТ-КЕУ) 
"боЕЕмаге\ \АибоаезкК\ \ АибоСАГ\ \В14.0\\АСАО-2451118:40800680" 

(УГАХ-РКОРЕКТУ-АУАПАВТГЕ-Р <объект УГА> <свойство> [Т]) - 
определяет, имеет ли объект определенное свойство 

_$ (VLAX-PROPERTY-AVAILABLE-P MYCIRCLE "АВЕА") 
T 

Обратите внимание, как обеспечение факультативного третьего napa- 
метра изменяет результат: 

‚ _$ (УЪАХ-РЕОРЕВТУ-АУАТЬАВЬЕЕ-Р MYCIRCLE "AREA" T) 
NIL 

Функция возвращает NIL, хотя круг имеет свойство "AREA" (<об- 
ласть»), которое не может изменяться; 

(УГАХ-РОТ <объект УГА> <свойство> <значение>) - установка зна- 
чения свойства функции нижнего уровня. Возвращает NIL, если установ- 
лено значение свойства: 
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_$ (VLAX-PUT VLAOBJ "COLOR" 1) 
NIL 

(VLAX-READ-ENABLED-P <объект VLA>) — определяет, может ли 
объект читаться. T, если объект читаем, и NIL, если нет; 

(УГАХ-КЕС-АРР <имя регистрации приложения><список описаний 
команды> <ПМТ> [имя приложения [булев флажок] |) - регистрирует npu- 
ложение (УР FUNCTION). 

Имя регистрации приложения - строка в форме "программное обеспе- 
чение\ \<название компании>\\< название программы >\\< версия про- 
граммы}> ". 

Список описаний команды, каждое из которых должно быть одним из: 
(< GLOBAL-CMD-NAME >. < LOCAL-CMD-NAME >) или <СМО- 
NAME>. Каждое <СМО-имя> — строка или символ. 

Булев флажок предотвращает сбой на операциях записи, если не NIL, 
и возвращает NIL; значение по умолчанию NIL. 

Возврат - строка, содержащая путь раздела реестра, в котором было за- 
регистрировано приложение; 

(УТГАХ-КЕГЕА$Е-ОВ]ЕСТ <объект УГА>) — сбрасывает объект рисо- 
вания. Возврат неопределенный; 

(УГАХ-КЕМОУЕ-СМО <глобальное имя>) — удаляет одиночную KO- 
манду или целую группу команд для текущего сеанса AutoCAD; 

(УГАХ-ТМАТШЫХ <список>) — возвращает подходящее представление 
для матриц преобразования 4х4, которые нужно использовать в УГА ме- 
тодах. Список — список четырех списков, каждый из четырех чисел, пред- 
ставляет элементы матрицы преобразования; 

(УГАХ-ТУРЕПМЕО-АУАП.АВГЕ-Р <объект VLA>) — определяет дос- 
тупность ТУРЕ ШВ информации. T, если ТУРЕШВ информация доступ- 
на, и NIL, если нет; 

(УГАХ-УГА-ОВ]ЕСТ-> ENAME <объект УГА>) — трансформирует 
объект VLA в объект AutoLISP. Возвращает имя объекта AutoLISP; 

_$ (VLAZ-VLŁ-OBJECT->ENAME УЬАОВО) 
«ЕМТУТУ МАМЕ: 27Е0540> 

(УГАХ-\УЕТЕ-ЕМАВГЕО-Р <объект VLA или входной объект 
AutoLISP>) — определяет, может ли объект рисования AutoCAD изме- 
няться; 

(VLISP-EXPORT-SYMBOL ‘Symbol-name) - экспортирует местную 
переменную AutoLISP к значению, которое она имеет B Visual LISP; 

_$ (SETQ DÐ 1) 

1 

_$ (YLISP-EZFPORT-SYMBOL 'DD) 
1 
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(VLISP-IMPORT-EXSUBRS ‘(“имя загрузочного модуля приложения 
"”” названия функций приложения "...)) — регистрирует точку входа или 
приложения ARX внутри среды Visual LISP; 

_$ (VLISP-IMPORT-EXSUBRS '("АОТОСАРАРР.ЕХЕ" "АРРГоа@") ) 

("АОТОСАРАРР" "АРРЬОАО" "С:РЗОВАС" "МТРВОР" "МТЕРТТ" "C:PSFILL" "ВНАТСН" 
"BPOLY" "C:PSIN" "AUTOCAD_COLORDLG" "ЗТАВТАРР" "ISMNUGRPLOADED" 
"ТМТТОТА") 


(VLISP-IMPORT-SYMBOL <‘символ AutoLISP или список симво- 
лов>) — назначает символ Visual LISP к тому же самому значению, KOTO- 
poe он имеет в местном AutoLISP. Возвращает значение импортируемого 
символа или последнего импортируемого символа в списке символов; 


_$ {VLISP-IMPORT-SYMBOL ‘DD) 
1 

(УГВ-АСОВ-КЕАСТОВ <данные AutoLISP> <список пар>) — создает 
базу данных объекта КЕАСТОК (глобальной переменной). Список пар 
включает (<имя события>. <функцию повторного вызова>), где имя собы- 
тия — один из символов, перечисленных в таблице АСОВ. Каждая фуикция 
повторного вызова принимает два параметра: REACTOR OBJECT - 
объект VLR, называемый функцией повторного вызова, и ОВ] - объект 
базы данных (передаваемый как объект AutoLISP), связанный с событием; 

(VLR-ADD <объект VLR>) - доступ к заблокированному объекту 
REACTOR; 

(VLR-ADDED-P <объект VLR>) - проверка допуска к объекту 
REACTOR. T, если допускается, и NIL, если REACTOR заблокирован; 

(УГВ-ВЕЕР-КЕАСЛТОМ [параметры ]) — выдает звуковой сигнал. . 

Эта функция работает только в Visual LISP 1DE; 

(УЕВ-СОВКЕМТ-КЕАСТЮМ-МАМЕ,) - возвращает имя текущего co- 
бытия, если вызывается изнутри повторного вызова объекта REACTOR: 

(УГВ-ПАТА-$ЕТ <объект VLR>) - возвращает специфические для 
приложения данные, связанные с объектом REACTOR; 

(УГВ-ОАТА-$ЕТ <объект VLR> <данные AutoLISP>) — записывает 
поверх специфические для приложения данные, связанные с объектом 
REACTOR; 

(VLR-EDITOR-REACTOR <данные AutoLISP> <список nap>) - co- 
здает редактор объекта REACTOR. Объект REACTOR 6yneTt добавлен 
к базе данных рисунка, но не станет постоянным; 

Список пар включает (<имя события> <функция повторного вызова> ), 
где имя события — один из символов, перечисленных в «Таблице редакто- 
ра». Каждая функция повторного вызова принимает два параметра: 
КЕАСТОК_ОВУЕСТ - объект VLR, который называется функцией 


n é = 
=—-— < к _ 
< Ч + 
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повторного вызова, и ОВ] — объект базы данных (переданный как объект 
AutoLISP). связанный с событием. 

Список пар (< имя события > < список дополнительных элементов дан- 
ных. связанных со специфическим событием); 

(VLR-LINKER-REACTOR <данные AutoLISP> < список пар>) - co- 
здает компоновщик объекта REACTOR. Список пар — (<имя события>. 
<функция повторного вызова >), где имя события — один из символов, 
перечисленных в < Габлице событий компоновщика». Каждая функция NO- 
вторного вызова принимает два параметра: объект VLR и список, содер- 
жащии строку имени программы АКХ; 

(УГВ-ОВ]ЕСТ-КЕАСТОВ <список AutoLISP объектов VLA > < дан- 
ные AutoLISP> <список пар>) — создает объектный объект REACTOR. 
Список пар (<имя события> <функция повторного возврата>), где имя CO- 
бытия — один из символов, перечисленных в «Таблице событий объекта». 
Каждая функция повторного вызова принимает три параметра: владелец 
объекта VLA. объект VLR и список дополнительных элементов данных; 

(VLR-OWNER-ADD <объект VLR> <добавляемый объект VLR>) — 
добавляет объект к списку NOTIFIERS объектов VLR объектного 
КЕАСТОК. Добавляет новый источник событий; 

(VLR-OWNER-REMOVE <объект VLR> <удаляемый объект VLR>) -— 
удаляет объект из списка NOTIFIERS объектного REACTOR; 

(VLR-OWNERS <объект УТГ.К>) — возвращает список объектов, KOTO- 
рые сообщают определенному объекту КЕАСТОК; 

(VLR-PERS <объект VLR>) - делает объект REACTOR постоянным; 

(VLR-PERS-P <объект VLR>) — определяет, действительно ли объект 
REACTOR постоянный; 

(УГВ-РЕВ$-КЕГЕА$ФЕ <объект УГК>) - делает объект REACTOR 
нерезидентным; 

(УГВ-КЕАСТОМ-МАМЕ$ <КЕАСТОК-ТУРЕ>) - возвращает список 
всех условий повторного вызова для этого типа объекта КЕАСТОК 
(VLISP FUNCTION); 

(VLR-REACTION-SET <объекх VLR> <тип события> <функция>) — 
добавляет или заменяет функцию AutoLISP в объекте REACTOR; 

Чтобы использовать функции, созданные B Visual LISP в AutoCAD, необ- 
ходимо экспортировать имена функции в AutoCAD или ввести их неявно. 

При явном экспортировании используют функцию (VL-AUTOCAD- 
DEFUN...); 

(VL-AUTOCAD-DEFUN <‘имя функции>) — экспортирует имя функ- 
ции в AutoCAD; 

По умолчанию любые функции Visual LISP чьи имена иачинаются с С:, 
экспортируются в AutoCAD автоматически, если Visual LISP переменная 
системы *C-COLON-EXPORT* установлена как T. 
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Графические примитивы AutoCAD и примеры их 
создания с использованием AutoLISP 


Наиболее часто используются следующие графические примитивы 
AutoCAD: точка, отрезок, окружность, дуга, полилиния, текст. 


Графический примитив точка 


Точка может быть задана несколькими способами: 
1. Абсолютными координатами: 
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2. Относительными координатами: 


Ре Ри — г 


ВЕТ Ti (СЕТРОТМТ "\п Взедите координаты точки T1 ")) 10,12 


mai 1 


ETa T2 (ЗСЕТРОТМТ "\n Введите координаты T2 относит. T1")) 65, 3; 


[Е УЕ 

2 100 

T2 (РОБАЯ T1 U R)) 
ИЛИ 
(SETQ T2 (POLAR T1 РТ 100)); 


4. Привязкой к характерным точкам примитива: 
(ОЗМАР <исходная точка> <режим привязки>) 
Основные способы привязки: 
(ОЗМАР Т1 "МЕА") - ближайшая (NEAREST) точка на примитиве; 
(ОЗМАР T1 "ЕМО") - конечная (ENDPOINT) точка линии или дуги; 
(ОМАР Т1 "MID') - средняя (MIDDLE) точка линии или дуги; 
(ОЗМАР Т1 "СЕМ") - центр (CENTER) дуги или окружности; 


Графические примитивы AutoCAD 347 


(ОМАР T1 "NOD") — ближайшая точка (вершина) (NODE); 

(ОЗМАР Т1 "ОПА") — ближайшая точка, лежащая на оси квадранта по 
дуге и окружности (0, 90, 180, 270°); 

(ОЗМАР Т1 "ПУТ”") - точка пересечения (ПМТЕВ-ЗЕСТТОМ) двух npu- 
митивов (линий, дуг, окружностей); 

(ОМАР T1 "INS") — точка вставки (INSERT) текста, блока; 

(ОЗМАР T1 "РЕК") - точка опускания перпендикуляра на примитив; 

(ОЗМАРТ1 "ТАМ") - точка касания касательной к дуге или окружности; 

(ОЗМАР Т1 "МОМ") — отмена объектной привязки (NONE); 

(ОЗМАР T1 "ОЧТСК") — быстрый (QUICK) способ выбора объекта 
привязки. | 

Через запятую можно задать несколько режимов привязки. Приоритет 
действия привязки соответствует перечисленным выше. 


Графический примитив отрезок 


(COMMAND "LINE" T1 T2 "Ключ") - создание отрезка по двум точкам. 
Ключи: "С" (Close) — замыкает ломаную; 

"U" (Undo) — отменяет последний отрезок; 

"" — завершает создание отрезка. 

Например, 

(COMMAND "LINE" T1 T2 ТЗ "С") - создание треугольника. 


Графический примитив окружность 


(COMMAND "CIRCLE" "Ключ" T1...) — создание окружности. 

Если ключа нет — чертит окружность по центру и радиусу; 

"2P" — чертит окружность по двум точкам на диаметре; 

"ЗР" — по трем точкам на окружности; 

"TTR" - (TANGENT TANGENT RADIUS) - чертит окружность, 

касающуюся двух примитивов и имеющую радиус R; 

(COMMAND "CIRCLE" ТС R) - по центру ТС и радиусу В; 

(COMMAND "CIRCLE" "2P" T1 T2) - по двум точкам T1 и T2 на ama- 
метре; 

(COMMAND "CIRCLE" "3P" T1 T2 T3) - по трем точкам на окружности: 

(COMMAND "CIRCLE" "TTR" P1 P2 В) - обсспечивает касание двух 
примитивов P1 P2 и имеет радиус R. 


Графический примитив дуга 


(COMMAND "АВС"...) — создает дугу и имеет ключи: 
"С" — (Centre) -— центр дуги; 
"L" — (Length) - длина хорды; 
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"5" — (Start) — начальная точка; 

“R” — (Radius) - раднус дуги; 

“E” — (End) - конечная точка; 

“D” — (Direction) - направление; 

“А” — (Angle) — центральный угол. 

Примеры изображения дуги: 

(COMMAND "АКС" T1 T2 T3) - изображение дуги по трем точкам; 

(COMMAND "ARC" Т1 "С" TC T2) - по двум точкам T1, T2 и центру ТС; 

(COMMAND "АКС" Т1 "С" ТС "А" U) - по точке, центру ТС и углу U; 

(COMMAND "АКС" T1 "С" ТС "L" L) - по точке, центру ТС и хорде L; 

(COMMAND "АКС" T1 "Е" T2 "В" R) - по точкам T1, Т2 и радиусу R; 

(COMMAND "АКС" T1 "Е" Т2 "U" Ц) - по двум точкам и центр.углу U; 

(COMMAND "АВС" T1 "Е" Т2 "О" U) - по двум точкам и направлению U; 

(COMMAND "АКС" "C" TC "S" T1 "Е" T2) - по центру и двум точкам; 

(COMMAND "АВС" "C" TC "5" T1 "А" U) — по центру, точке и углу U; 

(COMMAND "ARC" "С" TC "5" T1 "Г" L) - по центру, точке и хорде L; 

(COMMAND "АВС" "CONTIN" T2) - продолжение линии или дуги 
в точку T2. 


Графический примитив полилиния 


(COMMAND "РЫМЕ"...) — изображение последовательности прямо- 
линейных и дуговых сегментов с возможностью указания ширины. 

Ключи: 

для измерения ширины: 

"H" (Half-width) - полуширина; 

"М" (Width) — ширина; 

в режиме создания линий: 

"А" (Агс) — переход в режим дуг; 

"С" (Close) — замыкание линии; 

"U" (Undo) -— отмена последнего сегмента; 

"L” (Length) — длина сегмента; 

в режиме создания дуг: 

"А" (Angle) - центральный угол, градусы; 

"СЕ" (СЕжег) — центр дуги; 

"СТ." (CLose) — замыкание дугой; 

"О" (Direction) — направление по касательной; 

"L” (Line) — переход в режим линий; 

"L" (Length) - длина хорды; 

"В” (Radius) — радиус дуги; 

"S" (Second P.) - вторая точка. 
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Например, 


(COMMAND "PLINE" Т1 "М" 0.50.5 T2 T3 
"A" T4 "LINE" T5 Тб "A" T7 ""}). 


Графический примитив эллипс 


(COMMAND "ELLIPSE...) — построение эллипса с ключами: 

"С" (Center) — центр эллипса; 

"В" (Rotation) — угол поворота; 

(COMMAND "ELLIPSE" T1 T2 D2) - по двум точкам на концах глав- 
ной оси T1, T2 и длине другой оси — D2; 

(COMMAND "ELLIPSE" T1 Т2 "В" U) - по двум точкам на концах глав- 
ной оси и углу поворота относительно оси; 

(COMMAND "ELLIPSE" "С" ТС T1 D2) - по центру ТС, точке на KOH- 
це главной оси и величине другой оси эллипса; 

(COMMAND "ELLIPSE" "С" TC Т1 "В" U) - по центру, точке на конце 
главной оси и углу поворота относительно оси. 


Графический примитив кольцо 


(COMMAND "DONUT" D1 D2 ТС) - изображение кольца по внутрен- 
нему диаметру кольца D1, внешнему — D2 и центру - ТС. 


Графический примитив многоугольник 


(COMMAND "РОШСОМ"...) — построение прямоугольника с ключа- 
ми: "Е" (EDGE) - сторона; "С" — описывающий многоугольпик; "Г" - BIH- 
санный многоугольник; 

(COMMAND "POLIGON" М "E" T1 T2) - по числу сторон М и двум 
точкам, лежащим на концах стороны; 

(COMMAND "POLIGON" М "C" TC "Г" В) - по числу сторои N, центру 
TC и радиусу вписанной окружности R; 

(COMMAND "POLIGON" М "C" TC "С" R) - по числу старои N, цеит- 
ру ТС и радиусу описывающей окружности К. 


Графический примитив текст 


(COMMAND "ТЕХТ"...) — представление текста на чертеже; 

(COMMAND “TEXT” "A" T1 T2 "...") - вписывание текста между двумя 
точками T1 и T2; 

(COMMAND "TEXT" "F" T1 T2 "H" H "...") - ввод текста по двум точ- 
кам и высоте H; 

(COMMAND "ТЕХТ" "С" ТС "В" U "H" H "...") - ввод текста по цент- 
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ральной точке (Center) ТС, углу поворота U и высоте букв H; 
(COMMAND "ТЕХТ" “М" ТС "В" U "H" H "...") - ввод текста по cepe- 
amne (MIDDLE) с углом поворота U и высоте шрифта H; 
(COMMAND “TEXT” "R" T2 "В" U "H" H "...") — ввод текста с выравни- 
ванием по правому (RIGHT) краю T2, углу поворота U и высоте шрифта H; 
(COMMAND “TEXT” Т1 "В" U "H" H "...") — ввод текста по начальной 
точке 11. углу поворота U и высоте шрифта H; 
(COMMAND “"ОТЕХТ"...) — ввод нескольких строк текста. Ключи 
и способы ввода текста аналогичны команде "ТЕХТ". 


Команды графического редактора AutoCAD для 
редактирования объектов 


Объект в графическом редакторе AutoCAD - это некоторый примитив 
или совокупность примитивов (набор). Графический редактор AutoCAD 
обеспечивает возможность редактирования объектов. Первым шагом пе- 
ред редактированием является выбор объектов, который может быть про- 
изведен с помощью функции присвоения (SETQ...) языка AutoLISP или 
с помощью специальных ключей редактора AutoCAD: 

"А" (Addition - прибавление) — добавление к набору еще одного; 

"В” (BOX) - выбор объектов рамкой с угловыми точками T1 и T2. 

Если T2 справа от T1, то выбор объектов осуществляется внутри рамки, 
если T2 слева от T1, то выбираются объекты, как находящиеся внутри рам- 
ки (окна). так и пересекающие ее "В" N1 №2 ""; 

"С” (Crossing — пересечение) — выбор объектов, находящихся как BHYT- 
ри рамки с угловыми точками Т1 и Т2 (окна), так и пересекающихся ею 
°C" 1112" 

"L" (Last — последний) — выбор последнего изображенного объекта; 

"M" (Multiple - многократно) — многократный выбор объектов; 

"P" (Point — точка) — выбор объектов, на которых лежит точка. 

Если точка не лежит на объекте, то она становится первым углом рамки 
(окна), "Р” T1 ""; 

"РВ" (Previous - предыдущий) — выбор предыдущего набора объектов; 

"5" (Single — единственный) — выбор одного объекта; 

"В" (Remove — удаление) — удаление указанного объекта из набора; 

"U” (Undo — отмена) — удаление последнего добавленного в набор 
объекта; | 

"W” (Window — окно) — выбор объектов, находящихся внутри рамки 
(окна) с угловыми точками Т1 и T2. 

В графическом редакторе AutoCAD имеется целый набор команд для 
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редактирования выделенных объектов: E 

(COMMAND "MOVE" <выбор объектов> ВТ1 ВТ2 "") — перемещение 
выбранных объектов с базовой точкой ВТ1 к ВТ2; 

(COMMAND "ERASE" <выбор объектов> "") — удаление объектов; 

(COMMAND "COPY" <выбор объектов> ВТ1 ВТ2 "") - копирование 
выбранных объектов с базовой точкой ВТ] и размещение в ВТ2; 

(COMMAND "ROTATE" <выбор объектов> ТС U "") — поворот выбран- 
ных объектов относительно центра ТС на угол Ц против часовой стрелки; 

(COMMAND "SCALE" <выбор объектов> ТС К "") — изменение Macul- 
таба относительно центра ТС с коэффициентом масштаба К; 

(COMMAND "MIRROR" <выбор объектов> T1 T2 "") - зеркальное OT- 
ражение выбранных объектов относительно линии, проходящей через точ- 
ки T1 и T2; | 

(COMMAND "OFFSET" "T" <выбор объектов> T1 "") - изображение 
подобного объекта, проходящего через точку T1; 

(COMMAND "ARRAY" <выбор объектов> "R" МВ № ВК RS "") - co- 
здание прямоугольного массива примитивов (объектов) с числом рядов МК, 
числом столбцов № и расстояниями между рядами RR и столбцами RS; 

(COMMAND "ARRAY" <выбор объектов> "P" ТС М U "У" "") - фор- 
мирование кругового массива (по кругу) с центром ТС, числом объектов 
М и размещением их против часовой стрелки с углом перемещения 
U и возможностью ориентации объекта У (N); 

(COMMAND "STRETCH" <выбор объектов> ВТ1 ВТ2 "") - вытягива- 
ние выбранных объектов с базовой точкой ВТ1 и сдвиг их в ВТ2; 

(COMMAND "DIVIDE" <выбор объектов> М "") — деление объекта на 
N частей; 

(COMMAND "DIVIDE" <выбор объектов> "В" МВ "У" М "") - укладка 
на выделенный объект блока NB и возможной ориентацией (YES) sanan- 
ное число раз М; 

(COMMAND " " <выбор объекта> "В" МВ1 "У" В "") - измерение объек- 
та с помощью блока МВ1 с расстоянием между блоками В и возможиос- 
тью ориентации (YES) (МОТ); 

(COMMAND "MEASURE" <выбор объекта> T1 T2 "") - измерение 
объекта единицей измерения - отрезок [T1 T2]; 

(COMMAND "СНАМСЕ" <выбор объекта> T1 U "") - изменения: для 
отрезка — его конечная точка передвигается в точку Т1; для окружности — 
меняет радиус; для текста и блока — меняется точка вставки; примитив 
поворачивается на угол U; 

(COMMAND "CHANGE" <выбор объекта> “Р”... "") — изменение 
свойств примитива: "С" (COLOR - цвет); "ГА" (LAYER - слой); "LT" 
(Г.ГУРЕ - тип линии). За ключом "С" стоит код нового цвета, за ключом 
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“LA” — новое имя слоя; за "СТ" — новый тип линии ("ОАЗНООТ" - штрих- 
пунктирная, “DASHED” — пунктирная, "CONTINUOUS" - непрерывная). 

(COMMAND "BREAK" <выбор объекта> T1 T2 "") — разрыв без стира- 
ния или стирание части объекта от точки T1 ("F") до точки T2 против ya- 
совой стрелки. Если указан ключ "F", разрыв в T1; 

(COMMAND “TRIM” <выбор границ> "" <выбор объекта> "") — удале- 
ние части примитивов, которые пересекают границы; 

(COMMAND "ЕХТЕМО" <выбор границы> "" <выбор объекта> "") — 
вытягивание объекта до границы; 

(COMMAND "FILLET" "R" R <выбор объектов> "") — сопряжение ли- 
ний; если стоит ключ "R", а за ним значение К, сопряжение производится 
по радиусу К двух линий, которые выбираются после данной команды; 
если стоит ключ “P”, скругляется полилиния, которая выбирается сразу 
же за ключом. 

(COMMAND "CHAMBER" "О" D1 D2 <выбор двух линий> "") — вы- 
черчивание фасок: если стоит ключ "О" и указаны расстояния отсечения 
линий от точек их пересечения — D1 и D2, то концы отсеченных линий 
соединяются; если стоит ключ “P”, в углах полилинии снимаются фаски; 

(COMMAND "РЕПТТ" <выбор полилинии> "Ключ" "") — редактирова- 
ние полилиний с использованием соответствующих ключей: 

"С (CLOSE - закрыть) — замыкание ломаной линии; 

“О” (Open — открыть) — размыкание ломаной линии; 

"Г (ош - присоединить) — присоединение дуг и ломаных линий; 

“W” (Width — ширина) — ввод новой ширины ломаной линии; 

"Е" (Edit - редактировать) — выбор и редактирование вершин; 

“F” (Fit - скруглить) — скругление вершин ломаной линии; 

"$" (Spline — сплайн) — аппроксимация ломаной линии сплайном; 

“D” (Оесигуе — выпрямить) — удаление скруглений; 

"О" (Undo - отменить) — отмена режима редактирования; 

“X” (Exit - выйти) — выход из режима редактирования. 

Например, (COMMAND "PEDIT" <выбор ломаной> "F" "Х"). 
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AutoCAD -— одна из универсальных базовых систем автоматизированного 
конструирования, обеспечивающая возможность эффективного выполнения 
операций конструирования. Основным элементом этой системы является 
примитив. Примитив - это элемент чертежа, воспринимаемый системой 
как нечто целое. Примитивы в AutoCAD могут быть простыми (отрезок, 
‘окружность, дуга. и т. д.) и составными (полилинпия, вставки, блоки). 
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Составные примитивы делятся на субпримитивы. Например, для полили- 
нии субпримитивами являются вершины, для вставки, блоков — атрибуты. 

Вся информация о примитивах в системе AutoCAD содержится в базе 
данных графического редактора AutoCAD в виде списков. Список состо- 
ит из подсписков, большинство которых имеют вид точечных пар. Исклю- 
чение составляют подсписки, описывающие координаты точки. Первый 
элемент подсписка — это код (ключ) параметра, а второй и последующие 
элементы — значения параметра. Каждый примитив характеризуется CO- 
вокупностью параметров: именем, типом, именем типа линии, слоя и т. д. 
Код и значение параметра в точечной паре разделяются точкой. В таблице 
приведены примеры, коды и параметры для примитивов, которые исполь- 
зуются наиболее часто. 


Код и значение Отрезок Окружность Дуга 
параметра 
(-1.<имя примитива>) (-1. L4) (-1. СВ2) (—1. АВ) 


(0.Зтип примитива>) (0.“ЕМЕ”) (0.“"СТВСЕЕ”) (0."АВС”) 
(6.<имя типа линии>) (6.`РАЗНЕО”) (6."СЕщег") (6. DASHED") 


(8.<имя слоя>) (8. 0) (8. ”SLOI”") (8. "5ГОТ$”) 
(10.<коорд. точки>) (1034) (1050 50) (1077 15) 
(11.<коорд. точки>) (1198) 
(40.<радиус>) (40. 150) (40. 225) 
(50.<начальный угол>) (50. 30) 
(51.<конечный угол>) (21.77) 
(62.<цвет>) (62.5) (62. 3) (62.4) 


Чтобы вывести список (совокупность подсписков) данных любого при- 
митива, необходимо использовать функцию (ЕМТСЕТ <имя примити- 
ва>). Например, список данных примитива с именем L4, а под этим HMC- 
нем ранее был создан отрезок, можио получить следующим образом: 

(ENTGET L4) 
((-1.6000053C) {0 . "LINE") (6 . "DASHDOT") (8 . "SL") 
(105 70) {1155 90) (62 . 5)) 

Из списка данных следует, что под этим именем отрезок. По существу, 
список данных примитива — это ассоциативный список, список типа (“код 
параметра" — "значение параметра"). Код (ключ) определяет первый эле- 
мент подсписка, а второй элемент подсписка определяет значение пара- 
метра. 

Используя функцию (ASSOC <код (ключ) параметра> <список>), 
можно выделить нужный подсписок. Чтобы определить, например, какой 
примитив скрывается под именем L4, достаточно использовать функцию 
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(ASSOC 0 L4) 
(0 . "LINE") 


Определить координаты центра окружности СК2 (см. таблицу) можно, 
например. используя несколько функций: 


ЕТО ТС (608 (а № CRT] 


Функция (ASSOC 10 CR2) определяет подсписок вида (10 50 50), фун- 
кция (CDR...) формирует список без первого элемента (50 50), фуикция 
(ЗЕТО...) присваивает переменной ТС координаты центра окружности 
(5050). 

В качестве графического примитива в AutoCAD может выступать блок. 
Блок может содержать любое количество графических примитивов любо- 
го типа. а восприниматься AUtOCAD как один графический примитив. Для 
создания блока (только в текущем чертеже) используется команда 
"ВГОСК”. Для создания олоков, которыми можно воспользоваться при 
построении любых чертежей, достаточно выбрать команду "\УВГОСК”. 
Эта команда служит для записи блока в отдельный файл с заданным HME- 
нем и имеет расширение DWG. Рассмотрим примеры создания блока из 
выбранных объектов: 

(COMMAND "BLOCK" <имя блока> <базовая точка блока> <выбор 

объектов> “”") 

CEED "БРОСЕ" SLO ETa ТА СЕ2 АВ "") 

Запись блока в файл: 


(СОММЫМО "ИБЪОСК" F1 815) 


= ыы. a Ý at Ë o md ыы r e 


Включение блока в текущий чертеж производится при помощи коман- 
ды "INSERT" (Вставить), которая в общем виде выглядит так: 

(COMMAND "INSERT" <имя блока> <базовая точка вставки> <мас- 
штаб по оси X> «масштаб по оси Y> <угол поворота>). Например, 


— Giaa — 4 — > г — Г Е Ро 5 
ит з- р] qme "iT 1 } | 
f í ие | - s = j = м m i Í ь 
= = 


ый ый зы. 


Графический редактор AutoCAD позволяет создавать чертежи, которые 
представляют собой «многослойный пнрог». Например, на первом слое да- 
ется чертеж без размеров, на втором — только размеры к данному чертежу, па 
третьем — штриховка к отдельным его элементам. При необходимости слои 
можно накладывать друг на друга в любом сочетании, удалив пенужные. 

Для реализации многослойного изображения чертежа используется ко- 
манда “LAYER”, которая имеет следующие ключи: 

"М" (Make — сделай) — создает слой и делает его техущим; 

"5" (Set — установи) — делает слои текущим; 

"ОМ" (ОМ - включи) ~ делает слои видимым; 


Представление данных в системе AutoCAD 355 


"OFF" (OFF - отключи) — делает слой невидимым; 

"С" (Color — цвет) — определяет цвет слоя; 

"М" (New - новый) — создает новый слой; 

"L" (Ltype — тип линии) — определяет тип линии; 

"7?" — выводит список созданных слоев. 

Ключ "С" (Color — цвет) может использовать следующие цвета: "В" 
(Red - красный), "У" (Yellow — желтый), "С" (Green -— зеленый), "С" 
(Суашс — голубой), "В" (Blue - синий), "М" (Magenta — розовый), "W" 
(White — белый). 

Ключ "Г." (пебуре - тип линии) может использовать следующие pe- 
жимы: 

"5" (Set - установи) — текущий тип линии: "CONTINUOUS" - непре- 
рывный; "DASHED" — пунктирный; "РАЗНООТ" — штрихпунктирный; 

"R" (Read — просмотр) — просмотр типов линий; 

"С" (Create — создание) — создание нового типа линий; 

"L" (Load - загрузка) — использование нового типа линии. 

Например, (COMMAND "LAYER" "М" "L" "DASHDOT" ""). 

При использовании команд построения графических примитивов часто 
применяют команды: “ZOOM”; "UCS". 

"ZOOM" (Покажи) - изменяет размер, а также местоположение черте- 
жа на экране и имеет следующие ключи: 

"С" (Center — центр) — изображение чертежа по центру; 

"D" (Dynamic — динамический) — изображение динамическим окном; 

"Г." (Left — левый) — задание левого нижнего угла чертежа с изменением 
масштаба; 

"P" (Previous — предыдущий) — предыдущий режим изображения; 

"W" (Window - окно) — изображение окном с угловыми точками. 

Например, 

(COMMAND "ZOOM" "L" Т]М"") 

"UCS" (User Coordinate System) — система координат пользователя, KO- 
торая имеет следующие ключи: 

"O" (Origin - начало) — параллельный перенос координат; 

"Z" (Z - ось) — поворот вокруг оси Z на заданный угол; 

"S" (Save — сохрани) — сохранение текущей системы координат под He- 
которым именем. 

Например, (COMMAND "UCS" "S" ПМП). 

"В" (Restore — восстанови) — восстановление под заданным именем: 

"W" (World - мир) — переход в абсолютную систему "WCS" - World 
Coordinate System. 
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Книга содержит поэтапное описаиие и рекомендации 


‘по методике работы с программой цифрового видеомон- 


Taxa Adobe Premiere 5.0. Подробно pac- 
смотрен пользовательский интерфейс 


дуля с подключаемыми дополнениями, 
атакже перечислены средства для работы 
свидео- иаудноматерналами. Издание xo- 
рошоиллюстрировано, состоит из 14 глав 
и предметного указателя. à 

Это руководство предназначено всем, Miaa 
кто увлечен миром мультимедиа — и профессионалам, 
и начинающим, и любителям. 


Книга предназначена для 
пользователей, желающих начать 
работу с ресурсами Internet в бли- 
жайшее время, но незнающихс чего 
начать. Подробно рассматривают- 
ся вопросы выбора t последующей 
настройки, модема, приводятся 
критерий выбора провайдера. При- 

водится большое количестно спра- 
вочной ниформации пеобходимой 
при нодключении к Internet, но не 
доступной внесети. 


Вкниге описываются всеаспекты со- 
временного программирования наассем- 
блере для DOS, Windows 95/МТ и Unix 
(Solaris, Linux n FreeBSD), включая co- 
здание резидентных программ и драйве- 
ров, прямое программирование перифе- 
рнйных устройств, управленпезащищен- 
ным режимом имногое другое. Подробно 
рассмотрена архитектура процессоров 
ие вплоть до Pentium 1. Все главы ил- 
люстрированы подробными примерами 
работоспособлых программ. 
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Паскаль 7.0. Содержит много примеров и 
алгоритмов. Новые понятия о структурах 
даниых и средствах организации вычисли- 4 
телытых процессов, а также их отладки, BRO- 
дятся по мере возрастания сложности за- 

дач: от первой програзсмы, которая умеет 
выводить на экран единственное сообще- 
ние,— до последней, проигрывающей WAV- 
файлы; отобычных переменных — кдинамическим объек- 

там. 
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Книга является руководством по при- 
менению программного камплекса 
AutoCAD (версия 14 для Windows 95 
и Windows МТ). Данное издание поможет 
читателю в короткий срок освоить METO- 
ды двухмерного черчения, трехмерного 
| моделирования п разработки конструк- 
$ торской документации. 

Навыки, полученные ири изучении дан- 

‚ ной KIBITI могут быть с успехом исполь- 
зованы при работе с другими версиями 
программы AutoCAD. 
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